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WES CEN 


Microcassette 
manufacturers 
may quit QL 


Signs have appeared that the 
much-maligned Sinclair micro- 
cassette may at last be an 
endangered species. 

Ablex, the company which 


|has made the tape cartridges 


since the start, reports that 


|supplies of suitable magnetic 


tape from German comms 
giant BASF may dry up. 

Even if stocks are found, 
says production manager 
David MacSorley, Ablex will 
not make microcassettes after 
1989, 


Says MacSorley, “We are 
waiting for alternative samples 
from BASF, which we will 
have to test.” If an alternative 
is located, Ablex “would be 
interested in carrying it for the 
rest of the year.” He gave the 
declining market as the reason. 

MacSorley was pessimistic 
about another company taking 
over production. QL World 
has not yet had a response 
from Sinclair Research but 
hopes to report further next 
month. 


QL BB breaks away 


The QL bulletin board planned 
by David Park has now parted 
company with Quanta and will 
be setting up at a new site and 
number soon. “We have 
moved and we will have to wait 
for a new line to be installed,” 


Please will reader 
contributor John Banks 


contact us? Letters to his 
college address have been 
returned marked ‘gone away’. 


Check 
the 
cheque 


American software publisher 
Sharps has released a Check- 
book Manager program — 
named in the U.S. style. The 
program costs £13.95 which 
includes airmail postage to the 
U.K. and Europe. QL World 


| expects to review the program 


soon. 
Sharps, Box 326, Mechanics- 
ville, WA 32111, U.S.A. 
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says the sysop. “We had more 
than 400 enquiries when the 
board was announced. Please 
ask your readers not to ring the 
original number and we will 
release the new number as 
soon as we have it.” 


Taurus Computer Systems, 
promoter of the Alternative 
Micro Shows, reported an 
attendance of more than 2,000 
at its spring show at London's 
New Horticultural Halls. 

Our observer reports that 
the overall scope of the show 
was “much smaller than a Mic- 
rofair.” QL dealers quoted as 
attending include Quanta, 
Digital Precision, Sector Soft- 
ware, Care Electronics, OS 
Sub, PDOL, Schén PC and 
Miracle Systems, and there 
seems to have been a good 
trade in boxed QLs. 

Taurus was formerly Emsoft 
Ltd. which started life as a 


Subscription breather 


QL World publisher Focus 
Magazines has modified its 
plan to convert to a subscrip- 


tion-only base to give readers, 
the news trade and the com- 
pany more time to acclimatise. 

The large number of new 
subscriptions arriving coin- 
cided with postal distribution 


DJW Software, publisher of 
Home Banker Plus, is issuing 
an upgrade version of the prog- 
ram, Home Banker Plus V3.1. 
Features added since the prog- 
ram was reviewed in the March 
issue of QL World include 
single-key selection on the 
main and standing order 
menus, up to 14 accounts on 
each file, improved account 
balancing and standing order 
transactions, and a new own- 
crs’ manual. 

Home Banker Plus V3. 1 is 
supplied on a 3.5in. dise for 


support group for the Tatung 
Einstein and has branched out 
into promoting shows for spe- 
cialist computers. 

Taurus address is 6 St. Ives 
Close, Kesgrave, Ipswich, Suf- 
folk IPS 7LT. Tel: 0473 622789. 
Another Alternative Micro 
Show is planned for Saturday. 
November 11 at Bingley Hall. 
Stafford. A colour brochure is 
available. 

OL World assessment of 
Alternative Micro Shows is 
that, once established. they 
have the potential to attract 
large attendances to central 
show sites which might not 
otherwise be accessible to indi- 


problems, while many “occa- 
sional” readers remain un- 
aware of the planned changes. 

The number of magazines 
available from newagents will 
be rolled off gradually up to the 
end of 1989, allowing the news 
to circulate, and the subscrip- 
tion base to build up in stages. 


upgrade 


QLs with a minimum of 256K 
memory expansion. DJW Soft- 
ware will be contacting existing 
customers with information on 
how to upgrade copies of 
Home Banker to the current 
version. The new package costs 
£19.95 and is available from 
Sector Software. 

DJW Software, 11 Pound 
Close, Bramley, Basingstoke, 
Hampshire RG26 S5BL. 

Sector Software, 39 Wray 
Crescent, Unles Walton, Ley- 
land, Lancashire PR5 3NA. 
Tel: 0772 454328. 


Show scene thrives for QL 


vidual computer shows. At 
present, they are of moderate 
interest to OL users. We hope 
to have advance information of 
companies attending — the 
November show. 

Meanwhile, David Batty of 
Sector _ Software — reports 
attendance of more than 1.000 
QL users at his Northern Sinc- 
lair Show in Manchester, witha 
great deal of local interest. 
especially from users who 
would not normally make the 
Journey south for Microfairs, 
Another Manchester show is 
planned in three months. Con- 
tact Sector Software, 0772 
454328, for information. 


PEN GHANNEL 


Open Channel is where you have the 


with the answer, or just sound off about 
opportunity to voice your opinions in Sinclair 


something which bothers you, write to: Open 


QOL World. Whether you want te ask for elp 
with a technical problem, provide somebody 


Channel, Sinclair QL World, Greenceat 
House, Francis Street, London SWi IDG. 


I have two tips for QLers. By 
accident I found that a three- 
quarter-inch board placed un- 
der the back of the QL, with 
the QL rear support legs in 
place, will tilt the OL forward 
for a more comfortable keying 
position and, if the board is 
secured, will locate the QL 
firmly. I have a SuperQboard 
plus 512K RAM extension with 
twin 3.5in. floppy drives and 
PAR printer driver, internal 
SuperOmouse, Qram and 
CPMulator in the ROM sock- 
et. That is almost a full house 
and I get the occasional crash 
but not since this new arrange- 


define “decline”, anywa 
This speculation has 


advancin 
Sansar 


and the conti 
traders some riddles. 


but still popular. We wil 
keep you posted. 
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Editor’s notebook 


Is the “QL in decline”, or is it not? How do you 


? 
beer going on for as long as 
| can remember. If you define decline as “fewer 
people, less money”, there is less to go round. If 
you define it as “less up-to-date, less useful”, this is 
not the case at all. QL hardware and software is 
almost weekly, and the QL’s unusual and 
capabilities remain ahead of the field. 
ymin: J the lower ‘popular’ demand for the QL 
nued serious demand is setting QL 


Our own riddle is how to reduced unproductive 
distribution costs. The prescri 
subscription; however, we realise that everyone 
needs more time to adapt to the change. So, 
although the cover price has to be raised, the price 
of subscription is to stay down, and the magazine 
will still be available ‘one off from 
newsagents till the end of the year. 

The second riddle is that of the microcassettes. 
When Ablex ceases to produce them, will anyone 
else be able, willing and permitted to carry on 
making them. Some users talk of disc drives, but 
this sounds like “let them eat cake” to me. 
Microcassettes are maligned, 


ment. Presumably the in- 
creased angle helps through 
ventilation to keep compo- 
nents below crash tempera- 
ture, 

Every day I use Abacus to 
enter changes in share prices 
and as a matter of course pre- 
load FI to F2 with Altkey 
Abacus instruction sequences 
while booting in SuperBasic. 
With the multi-tasking facili- 
ties of Oram, it is always easy 
to nip back into SuperBasic to 
add an Altkey sequence and 
then return to Psion to use it for 
repetitive commands. One 
boot-loaded Altkey is: 


ALKEY CHRS(240), CHR$ 
(236), CHR$(240)&’Ishrs’, 


ion is to rely on 


CHR$(216), CHR$(216), 
CHRS$(240)&‘wh’, 
CHR$(248) 

&A26',” 


which will remove prompts, 
load ‘shrs’, drop the cursor two 
lines, split the window horizon- 
tally, GOTO A26 — bring a 
section of the spreadsheet with 
top left corner at A26 on to the 
screen — with the touch of 
ALT/F3. 

Many QL users may not 
realise the time-saving possi- 
bilities. 


W.T.M. Lawrence, 
Bexley, 
Kent. 


All the fax 


Thank you for the information 
about ABC Elektronic. If the 
Instant Access panel is to be of 
any help, someone at Focus 
needs to perform an update on 
it. You should also include fax 
numbers for all firms which 
have one. 


Don Atkins, 
Sydney. 


Editor's reply: The latest update 
of Instant Access appears in this 
issue. Instant Access is a quick 
reference for contacts and is not 
intended to be a substitute for 
the monthly advertisers’ index 
or advertisements. It covers 
established QL supporters and 
the last known numbers of a few 
companies no longer support- 
ing the OL. Space is restricted 
and very few private users have 
fax. Check the companies 
advertising for further details. 
For example, the ABC Elek- 
tronic advertisement on page 13 
of the April issue gives the fax 
number. Incidentally, Instant 
Access now contains up-to-date 
information about QL World 


subscription enquiries but full 
details appear on the Contents 
page every month. 


Crystal call 


I would like to take this oppor- 
tunity to say what a great 
magazine OL World is. Would 
you ask any readers who live in 
the Penge, Crystal Palace or 
Beckenham areas to write to 
me so that I can start a local OL 
club? 


Brian Dickson, 
67 Queen Adelaide Road, 
Penge, London SW20 


I am trying to obtain a copy of 
QL SuperBasic, The Definitive 
Handbook, written by Jan 
Jones. The publisher McGraw- 
Hill advises that the book is out 
of print and not in stock. 

If anyone can advise me 
where I can getacopyI shall be , 
grateful. 

C, J. Garnett, 
5 Park Road, 
Coombs Park, 
Coleford, 
Gloucestershire. 


7X to QL 


Would any of your readers be 

interested in translating a suite 

of programs written in Basic 

for the ZX Spectrum to run on 

a QL? I can supply either 

Microdrives or listings and 

would agree to a reasonable 

fee. 

Colin Hodson,. 

Hodson Rivers, 

2 Ridgemount Street, 

London WCIE 7AA. 

Editor’s comment: Any in- 

terested programmers should 

contact Hodson directly with 
their offers. 
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John Davis 
presents the first 
of an occasional 

series on 

Archive 
programming. 
This month he 
relates Archive 


to Basic. 


am a coarse programmer and this 
article is written for other coarse 
programmers. Six years ago I knew 
nothing about programming but I had 
a time-consuming annual task which 
seemed to cry for a computer. It involved 
the preparation of an annual rota for some 
50 magistrates. The first home computers 
appeared but I could get no indication as to 
whether they had the power for the task I 
had in mind and they were too costly to buy 
on spec. Then Clive Sinclair produced the 
ZX-81 and I was hooked. 

I set about learning programming and 
writing my rota program at the same time. 
As I saw a possible application for some- 
thing I had learned, I tried it and kept at it 
until it worked, | learned rapidly, from hard 
experience, to save it at least twice and so I 
am now obsessive about back-up copics. 

It is for people who tend to program 
freehand | am writing. I hope there may be 
things of some value to people with a formal 
background in programming. On the other 
hand I hope that comparative novices may 
find it possible to work their way into 
Archive through these articles. 

Eventually I was in a position to move to 
a QL. Before starting the conversion of my 
program I looked in the Archive section but 
was deterred by the lack of line numbers 
and the elegant layout of the procedures. 
What were procedures anyway? 

As a result I set about converting my 
program from ZX-81 Basic into Super- 
Basic. I learned a little about procedures 
and, eventually, when I looked again at 
Archive T recognised it for what it was, a 
special dialect of Basic. 

If you wish to print a number of values in 
acolumn, right-justified in the conventional 
way for listing figures with the units above 
the units, the 10s above the 10s and so on, 
for simplicity they are all whole numbers in 
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the range | to 9999. In Basic you could write 
a sub-routine: 


1000 LET Y$ = str(Y) 
1010 LET Spaces$ = ~” 
1020 LET Spaces$ = 
len(spaces$)-len(YS))+ Y$ 
1030 PRINT TAB X; Spaces$ 
1040 RETURN 


spacesS (1 to 


Having written this you could then include 
in the main program: 


10 LET X = 10 
20 FOR a = | to 10 
30 LET Y = NUM(a) 
40 GOSUB 1000 
50 NEXT a 

The result would be to print the contents 
of the numeric array NUM in a four-wide 
character column starting 10 from the 
margin. Effectively that sub-routine is a 
PROCEDURE and the values X and Y are 
its PARAMETERS. 

In SuperBasic the subroutine could be re- 
written as a PROCEDURE in this form: 


1000 DEFine PROCedure justify (x,y) 
1010 spaces$ = fills$(* “,5-(len(str(y))& 
str(y) 

1020 PRINT TAB x:spaces$ 

1030 END DEFine 


In the main program lines 10, 30 and 40 
are replaced by: 


30 justify 10,num(a) 
Procedures do things and need not always 
have any parameter passed to them, e.g: 


1000 DEFine PROCedure home 
1010 AT 0,0 
1020 END DEFine 


This hasno PARAMETERS but it will, if 
the word ‘home’ is typed-in as a command 
or is included in a program, invariably 
return the print position to the top left-hand 
corner of the screen at a saving of two key- 
strokes every time it is used. 


By contrast, FUNCTIONS must always 
have at least one PARAMETER, based on 
the value of which it RETURNs another 
value. 

If my ‘justify’ procedure were to be re- 
written as a FUNCTION, the parameter, x 
would probably be omitted and line 1030 
would have to be re-written: 


1030 RETURN spaces$ 


It would be called in the main program by 
an amended line 30: 


30 PRINT TAB x;justify(y) 


The parameter x would now nced to be 
replaced by a program variable or its value 
could be substituted in line 30. 

Once you have used procedures for a 
time you realise that GOSUB is redundant. 
For the coarse programmer GOTO still has 
its attractions but ] have been persuaded 
that there are good reasons, not merely 
programming fashion, to eschew its use. Even 
when used completely in a single proce- 
dure it sacrifices a major advantage of 
procedures, namely speed. Use of GOTO 
involves the machine going right through 
the program looking for that line number, 
whereas it has a much shorter index of the 
start addresses of procedures and functions. 

Once so persuaded, I found that it was 
not so difficult to avoid GOTO as well. 
Once I had been living without GOTO as 
well as GOSUB for a time | wondered who 
needs line numbers? Once you realise that 
you are ready to approach Archive. 

For anyone who started on the ZX-81, 

moving from SuperBasic to Archive is a 
little like coming home for the following 
reasons: 
a. To send to the printer you use LPRINT 
rather than OPEN #4,serlehe: 
PRINT #4:CLOSE#4. You can divert data 
intended for the printer to a * 000 lis” file by 
use of the commands SPOOLON and 
SPOOLOFF. e.g.: 


SPOOLON “fred” 

LPRINT fred$; tab 30:smith$ 
LPRINT ete, ete 
SPOOLOFF 


will produce a file on your data device — 
mdv2 00 if you have not re-configured Arc- 
hive — called “fredO0 lis” which will contain 
the value of fred$ and smith$ on one line 
followed by the other values LPRINTed. 
You can check your layouts without 
wasting paper by preceding the LPRINTs 
with SPOOLON SCREEN. This has one 
important limitation in that, if you have 
attempted to force a formfeed by a line 
LPRINT chr(0)+chr(12) it will stop with a 
report of “i/o error”; the screen will not 
accept nonprintable characters. You can 
avoid this problem by writing a Procedure 
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FF: 

proc FF 
Iprint chr(0)+chr(12) 
cndproc 


and including the procedure call “FF” in the 
document layout. If wishing to test the 
layout on the screen you can merge in a 
dummy proc FF for the duration of the test 
and then merge back the proper one. The 
dummy procedure would read: 
proc FF 

endproc 

b. As you will have seen in a, strings are 
concatenated by “+” and not “&”. That will 
be familiar to those who started on the ZX- 
81. Other differences are: 


“chr(n)" not “chr$(n)” likewise “str(n)”, 
There is no coercion so “LET a = a$(3 to 
4)" is unacceptable. 


Beginners are reminded that concatenated 
means chained, e.g., “fat” + “head” = 
fathead” 


c. Use of LET is mandatory, e.g., “x = 
10" will return an error. 


d. Commands and functions appear in 
lower-case so, if you wish to check that you 
have not used one of these as a procedure 
call in place of a similarly-named proce- 
dure, use upper-case for procedure names 
and check that they are not changed to 
lower-case when they appear on the screen. 

Commands are ‘reserved words’ and you 
may not use them cither as procedure 
names or variable names, even with the 
addition of ‘$' for strings. The line editor 
will check that you have not used a reserved 
word as a procedure name but it will let you 
use it.as a variable name but this will cause 
the program to halt with an error when it 
comes to the linc. Function names, without 
the brackets used to contain the para- 
meters, can be used as variable or proce- 
dure names. So the line editor will NOT 
accept: 


proc all — 
name). 
let a$ =fred — (no closing quote). 


(command used as a procedure 


but it will accept the following, although 
they will not run: 


let all = 12 
(command used as variable namc) 
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ZHIVING 


let all$ = “fred” 
let aS = 12 (mixed data types) 

Ict a = “fred” (the same) 

The following is acceptable both on input 
and when run: 


(the samc) 


let date$ = date(1) (function name used for 
variable) 


ec, DEFINE programs in Archive consist 
cnurely of a serics of procedures. There are 
a number of pre-defined functions but there 
is no provision for user-defined functions. 
For that reason the keyword DEFINE is not 
used. An example of pre-defined function 
which exists in Archive but not in Super- 
Basic is “dec(n,d,w)”. This is a sophisti- 
cated version of my example “justify”. It 
takes three parameters: 


n. being the value to be printed 

d. being the number of decimal places 

w. being the width of the field in which it is 
to be printed 


So, if price has been calculated as 2.736, the 
statement: 


print “£":dec(price.2,5) 
will produce the output “£2.74” 


f. TRACE. Since there are no line num- 
bers, when an Archive program stops on an 
error it displays the procedure name and the 
line. So if, in a procedure called “bill” the 
foregoing print example were used without 
price having been declared, it would stop 
with the error number for undefined vari- 
able after a line which showed: 


bill print “£";dec(price 2.5) 


The toggled command “trace” enables 
the programmer to follow the operation of 
his program. When trace is on, each line is 
displayed in the foregoing form and so it Is 
possible, when debugging, to follow the 
flow of the program. 

g. Archive has an ERROR provision 
which enables a program to deal with error 
situations without halting. I will show how 
this can be used to close an indeterminate 
number of open files and then continue the 
program, without operator intervention. 

h. Loops Basic had just ~For/Next™ 
loops; Superbasic added “Repeat/End Re- 
peat” loops with exit. Archive has “While/ 
Endwhile”’ and = “All/Endall” loops. 


“While” loops are a little like repeat loops 
with the exit condition contained in the line 
which marks the beginning of the loop. 
They may be made to operate as for/next 
loops by the inclusion of a counter, e.g.: 


let count = | 

while count<10 
print tab 10; count 
let count = count+1 
endwhile 


All/Endall provides the fastest way to 
search through a database file but must not 
be used where the records are to be updated 
in the loop. 


i. Archive is designed to manipulate 
database files. For those used to Basic or 
SuperBasic, a database file can be regarded 
as an expandable array capable of holding 
both string and numeric data. Another 
image would be that of the card index with 
pre-printed cards requiring specific ordered 
data. The box of cards is the 'File”. each 
card is a ‘Record’ and each piece of required 
data, e.g.. ‘Name’* or ‘Date of Birth’ is a 
‘field’. A database can consist of one or 
more such files. 


To start editing, load Archive as you 
would Quill, i.e., re-set the machine, place 
the program medium in mdv100 or f1p100 
and press F1 or F2. The screen will display 
the usual prompts at the top and a broad 
line near the bottom. The cursor will be in 
the ‘command area’ below the line. 

If you press F3 a list of commands will 
appear in the centre of the prompts area 
but. unlike the other three Psion programs. 
pressing the initial letter of one of these 
commands has no effect. other than to 
make that letter appear at the cursor 
position. As in SuperBasic the whole word 
has to be typed and then <Enter> pressed. 
Certain commands will have a familiar look 
but will operate slightly differently. 


Dir — displays the directory of a device 
Load — loads a program 
Save — saves a program 


Unlike Basic or SuperBasic. the device 
and or file names have to be in double 
quotes. Nevertheless. if you type the comm 
and press <ENTER> the interpreter will 
offer a pair of quotation marks with the 
cursor between. 

Continued on page 16 
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Continued from page 15 


Sload and Ssave which load and save 
screens respectively work in the same way 
but somewhat illogically, The following two 
commands: 


Save object and 
Load object 


which speed loading and saving by con- 
densing the file into machine code, do not 
have the facility of offering the quotes. If 
you forget this you have no choice but to 
type everything again because. unlike Su- 
perBasic, Archive does not return a “bad 
line’ for correction; you just have to start 
again, 
Type “Edit” and <ENTER>. A thick 
vertical line will appear about !0 columns in 
| from the left of the screen. In the command 
area there will have appeared the word Proc 
with the cursor just to its right. Type 
“testit.m” <ENTER>. The word “test” 
will appear to the left of the vertical line and 
the following will appear to the right: 
As you type and <ENTER®> the following 
lines they will be inserted in sequence 
between proc and endproc: 


if m = <ENTER> 
mode <ENTER> 
endif <ENTER> 
if t <ENTER> 
trace <ENTER> 
endif <ENTER> 
rem here insert procedure call! to be tested 
<ENTER> 
if t <ENTER> 
trace <ENTER> 
endif <ENTER> 
mode 1 <ENTER> 


On completing this the procedure will read: 


proc;t,m 
ifm = 0 
mode 0) 
endif 
if t 
trace 
endif 
rem here insert the procedure call to be 
tested if t 
trace 
endif 
mode | 
endproc 


If any lines require to be amended, use 
the up cursor to move up the highlight to the 
line concerned and press FS. The line 
concerned will be brought down to the 
command area where it can be edited. If a 


line has been omitted, use the cursor keys to 
highlight the line before it and press F4, 
type the missing line and <ENTER>. To 
leave this insertion mode press <ESC>. 
When you are satisfied with the procedure 
press <ESC> to leave editing mode. On 
return from the editing mode type: 


save <ENTER> 
around cursor) 
testrig <ENTER> (this should appear 
between the quotes) 


(quotes will appear 


You will then have saved this one proce- 
dure as “testrig prg” on the drive configured 
as the data device. Test it by typing: 


Test:1,1 <ENTER> 
Test:1,0 <ENTER> and 
Test:0,0 <ENTER> 


You have now created and tested a test 
rig which can be merged into any future 
program you are debugging. A procedure 
call with all necessary parameters can be 
edited into this procedure, which can then 
be used repeatedly with or without trace to 
test other procedures in the new program. 
Use of Mode 0 makes the whole screen area 
available to display the ‘trace’; otherwise 
only the command area is used, which 
makes it a little difficult to follow, 

The next part will deal with copying and 
opening files. 


TA YOFTWARE FILE 


D is a text editor, 
the only one to work 
under the QJump 
pointer environ- 
ment, and it is a smart piece of 
programming. The review 
copy was on a 3.5in. disc. The 
documentation was a proto- 
type, being translated from 
German to English by the 
author, and was in the form of a 
small black hardback ringbin- 
der. Whether this is an 
example of the proper manual 
which will be produced for 
general sale, | cannot say but | 
hope it will be, as it lends an 
added quality to the product. 
Again, though, QD has a 
quality of its own which makes 
it worth the price anyway. 

The documentation gave an 
introduction to QD and ex- 
plained the concepts. It dealt 
with the menus in sections, 
each being separated with a 
coloured page card. | found the 
documentation clearly printed, 
well laid-out and pleasant to. 
read. 


| tested QD for a period of 
days on my QL, which is 
expanded with Trump Card to 
give me 896K of memory and 
had no problems. | used the 
Toolkit Il command RES__128 
to bring the QL back to the 
state of being unexpanded and 
tried to load QD but had no 
luck. 

You do not have to use the 
standard boot to load QD. You 
could EXEC it in but first you 
must install two files 
PTR__GEN, which is 12,500 
bytes long, and WMAN, which 
is 7,800 bytes long, and all 
explained in the documenta- 
tion. 


German 


If you boot QD from the 
supplied medium you will find 
that the program will appear in 
German. Have no fear be- 
cause, for all who do not know 
German, there is an English 
version included on the disc. 
Load the boot and edit 


line 30 to read EXEC fip1_ 
QD_ENGLISH. Then type 
run and press ENTER and 
the English version will load. 
The disc is not copy-protected, 


Information: 


QD 
Price £26.45 


Jochen Merz Software 
Im Stillen Winkel 12 
4100 Duisburg 11 
West Germany 


so you can easily make a back- 
up of it with a customised boot 
for your use. 

There is a configuration 
program which is simple to use 
to configure QD but do your 
configuring on a back-up copy 
— never on the original. 

Before you run the program 
read the documentation thor- 
oughly. It is friendly and has 
much to offer. QD needs ex- 
periment, like any other prog- 
ram, to get a feel of the controls 
and to see how the options 


work and what they do when 
executed; as far as | am con- 
cerned it is the only way to get 
the best from software. 

QD would be useful for 
those who program in machine 
code, Pascal, C, BCPL, For- 
tran or any of the other lan- 
guages which require an edi- 
tor. It can multi-task with other 
programs, so you can have 
your assembler-linker and so 
on laying in memory with QD, if 
your QL memory permits, and 
switch between them with 
CTRL + C. There is no reason 
why you could not have two or 
more QDs in memory at the 
same time. 


Basic edit 


You can also edit Basic 
programs with it. | have tried it 
and found no problems and 
some of the programs | loaded 
were very long. When finding 
and replacing, QD took it allin 
its stride and, despite the file 
length, it did it in the blink of an 
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eye. Apart from using it in a 
programming environment it 
could also be used for simple 
things like keeping notes, re- 
cords of appointments, recipes 
or anything involving the man- 
ipulation of text. 


No Quill 


One thing it did not seem to 
like was Quill documents. No 
matter how short the file 
length, it would load about 160 
characters of the file and no 
more. | do not regard this as a 
bad point of the program, even 
though there are text editors 
which will handle documents 
which have been produced by 
Quill. QD is neat and efficient 
to look at. It is made easy to 
use and friendly, as it is pull- 
down, menu-driven and | like 
programs which use those 
types of menu. 

At the top of the screen are 
small windows with words 
such as FILES, COMMANDS, 
BLOCKS, INFO, STATUS in 
them. They are the categories 
with which the menus deal. 
There is also a group of four 
boxes at the top left of the 
screen. They relate to a load- 
able help page, re-sizing the 
QD window, moving it, and 
leaving QD temporarily to en- 
able a return to it with CTRL + 
C. 

The text cursor is moved 
round the editing window with 
the normal cursor keys, one 
line up or down, character by 
character, back or forth along a 
text line. Pressing ALT, SHIFT, 
CTRL or acombination of them 
with the cursor keys allows you 
to do such things as delete 
text, character by character or 
line by line, move to the start or 
end of text, move along a line 
word by word, scroll the text 
page by page, or pan the text 
left or right leaving the cursor in 
its current position. There are 
22  cursor-orientated com- 
mands regarding movement 
and editing. 

By the side of the text win- 
dow there is a narrow window, 
the height of the text window, 
just wide enough to accept the 
cursor. It is used for fast selec- 
tion of an area of text. for 
viewing or editing. 

Selecting menus is simple. 
Move the cursor out of the text 
area to a category and press 
ENTER and the appropriate 
menu will be pulled down. 
Options are chosen from the 
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menu with the arrow or the first 
letter of the required option. 

Once a menu has been 
pulled down, further menus 
cannot be pulled down until the 
menu is pulled up again and 
this also applies to the execu- 
tion of an option selected from 
a menu. Menus can also be 
selected using the function 
keys which are displayed by 
the side of the appropriate 
windows. 

INFO is not really a menu but 
an information sheet which 
tells you current line, column 
and free memory. 

STATUS allows you to 
change parameters, such as 
tabulation intervals, used by 
QD and set insert mode, confir- 
mation request and file back- 
up. 
When the insert mode is on 
text can be inserted and the 
original text to the right of the 
cursor is moved to make room 
for it. 

When the insert mode is off 
the text underneath the cursor 
is over-written by what you 
type-in. If you want to insert 
any text you can make room for 
it by putting spaces in using 
SHIFT + SPACE. 

BLOCKS allows you to mark 
blocks of text to copy, delete or 
move them. Marked blocks 
can have strings replaced in 
them and be written to a device 
such as disc or Microdrive, or 
to a printer by specifying ser1 
or ser2 instead of a device and 
filename. 

COMMANDS will allow you 
to find/replace strings upwards 
or downwards throughout a 
current text file, move to speci- 
fic lines, delete or insert control 
codes or quit QD. If you use the 


TR YOFTWARE 
FILE 


be loaded which use CHR$/0)- 
(31). High-res fonts such as 
those of Page Designer, or 
those supplied with Quwriter // 
are not suitable for use with 
QD. 


QD allows you to enter text 
up to 160 characters per line 
and scrolls the text off to the left 
if you type-in a line with more 
characters than it can display 
in its text window, which is 


Shirley Jane Peters tries 
out a new text editor, 
OD, to date the only one 
on the market to run 
under the QJump 
pointer environment. 


Files which have been made 
by another editor can be 
loaded into QD. If they contain 
control codes such as CHR$ 
(8) or CHR$ (13) those codes 
can be removed. Also it is 
possible to insert control codes 
into your text with the option 
Put Character. 

The insert text mode in this 
menu | found really useful 
because it means that | can 
merge a file from disc or cart- 
ridge with the current file in QD 
and put it anywhere | want to 
do within the text at the current 
cursor position. When | prog- 
ram in machine code | usually 


One thing it does not seem 
to like is Quill documents 
...I do not regard this as a 
bad point. OD is neat, 
efficient and easy to use. 


quit option all the text is lost 
and you cannot re-enter QD 
until it has been loaded 
again. 

FILES, as the name sug- 
gests, is all to do with file 
handling. Files can be loaded, 
saved and sent to a printer. If 
you wish, new fonts can be 
loaded so long as their file 
names are appended with 
_— NT. Special fonts, too, can 


write in modules and often | 
would like to put them all 
together to make one big file. 

QD allows me to do this, 
whereas the Metacomco editor 
| have used previously does 
not. Since the files produced 
by QD are compatible for use 
by the Metacomco assembler 
package. | shall be using it to 
produce all my machine code 
listings. 


standard practice with text edi- 
tors. 

It is a fast program because 
it does no garbage collection 
and memory is allocated only 
as it is needed. In this respect it 
is ideal for the programmer 
who needs to use an editor. 
Speed was one of the conside- 
rations of the author, and as he 
said in the manual, “Program- 
mers want fast things, they 
have no minutes to wait,” and 
he has certainly achieved it. 


No bugs 


| understand that there are 
many text editors on the mar- 
ket but which one you use 
depends on if it does what you 
want. | found QD to be more 
than adequate and, with the 
amount of memory | have on 
my QL, there were no prob- 
lems. No bugs reared their 
heads. The program offered 
me options you find on many 
text editors, plus a few more. 

It is easy to use, pleasing to 
the eye, well error-trapped and 
fast in the way it carries-out its 
tasks. What | have seen from 
this company makes me think | 
would like to see more of its 
products, | like its software. If 
you need a text editor and can 
make room in your disc box for 
this one. | do not think you 
would be sorry. 
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INFORMATION: 

Product: FlashBack Special Edition. 
Price: £40 (£15 upgrade charge for 
users of FiashBack 1). 


Supplier: Sector Software, 39 Wray 


Crescent, Ulnes Walton, 
Lancs PR5 3NA. 
Tel: 0772 454328. 


Leyland, 


reviewer may see a program in 

a different light from some us- 

ers, partly because the review- 

er tends to change to the latest 
program versions as soon as they are 
available — often before they are re- 
leased to the public — and partly because 
the period during which a program is 
tested can be short. In the case of 
FlashBack. | have been using it since it 
was introduced and have had the version 
reviewed for several months; any bad 
features are likely to have shown up by 
now. As the new features of the current 
version have by now been accepted by 
me as normal it also means that it is not 
difficult to overlook the fact that readers 
will be unaware of them. 

While FlashBack has been enhanced, 
many existing users will be more con- 
cerned with what is in the Special Edition 
package. There are three modules sup- 
plied with FlashBack but usable indepen- 
dently of it. One is a Report Generator, 
another a Forms Designer and the third a 
Printer-Driver Customiser. The modules 
will be dealt with in the concluding part of 
this review in a later issue. 


Original 


The original FlashBack is still available 
at £25 and may be more suitable for users 
with QLs which do not have memory 
expansion units, because it uses signifi- 
cantly less memory then the new version. 
Existing users can upgrade to the full new 
package by sending £15 and proof of 
original purchase to Sector Software. 

FlashBack never set out to replace 
Archive but one of the intentions was to 
provide a database program which was 
easier to use than Archive for typical 
applications. The program is very suc- 
cessful in that; my test was to transfer a 
name and address file — 300 records — 
and a small German dictionary — 1,900 
records — from run-time Archive to 
FlashBack and the results were so good 
that | no longer use Archive on a regular 
basis. 

Apart from greater ease of use the big 
advantages are speed of operation and 
flexibility of data manipulation. The ability 
to make notes, or even sizeable docu- 
ments, and deposit them later into a word 
processing program gives FlashBack 
another distinct edge on Archive. Perhaps 
the most impressive feature, especially 
for someone who habitually loads the QL 
until there is little memory left, is the 
consistent high speed of both cursor 
movement and string searches. The cur- 


FLASHBACK S.E. 


Bryan Davies with a user report on the 
new V2 update of this popular database 
manager from Sector Software. 


sor is not only fast but also very easy to 
follow. Regardless of file size, typical 
searches each take roughly the same 
time — a second or so. 

The two files mentioned have no data in 
common; the one is Strictly names and 
addresses in one field with telephone 
numbers and odd information in another, 
whereas the second one has German 
words in one field and the English equiva- 
lents in the other. As both are sometimes 
required concurrently there was a prob- 
lem when using Archive — any swapping 
routine took far too long. Not so with 
FlashBack; the German dictionary was 
put as Fields 1 and 2, the names file as 
Fields 3 and 4, and the two files merged 
into one. 

Merging Archive files, or just doing a 
one-for-one conversion for use in Flash- 
Back, is straightforward. During operation 
it is simple to Group the records so that 
the one set can be excluded during 
searches but the speed is such that this 
feature is rarely necessary; with the 
database file size at 140KB, operation is 
as slick as when the size is only 40KB. 

One disadvantage needs to be men- 
tioned. The total space taken by program 
and database is considerable — in the 
example quoted, roughly 140KB for the 
file and 130KB for the program. The 
combined database file size is about 
20KB less than it was in Archive and the 
1:1 ratio improves as the database grows 
but it may be difficult to justify the new 
version of the program if only very small 
database files are used. 

The program space can be reduced by 
making the window used smaller, not 
taking the option to refresh the screens, 
reducing the number of references per- 
mitted per record, and by limiting the 
number of records which can be added 
during one session; more than 30KB can 
be saved in that way. Although it would in 
a sense be a retrograde step, it might be 
worth having the facility to keep the data 
on disc instead of in memory, especially 
now that it looks as if hard discs will be 
available to give much faster access than 
floppies. 


New features 


The basic commands are unaltered 
and existing files can be loaded, so there 
is no difficulty upgrading from version 1. A 
useful facility if there is a string of records 
beginning with the same word is the ability 
to go to the first of them by pressing F2 
when the cursor is on that word in another 
record. If you are on the last of, say, 50 


records each beginning with Smith, place 
the cursor somewhere on the word Smith 
in the current record, then press F2 to go 
to the first of the 50. The word does not 
have to be the first in the current record 
but the search action always goes to the 
record with that word as the first one. 

An instruction database file is supplied 
and it can be incorporated into any user 
database to give on-line help. The Flash- 
Back code is now re-entrant, which allows 
more than one copy of the program to be 
run at any time, using the same program 
code. When the commands are listed, by 
pressing F3 twice, the first on the list is 
“Another FiBK — Ctrl A”. 


Default 


Naturally, different keying will be re- 
quired for the second copy and you are 
first asked what that new keying is to be. 
The default database is then loaded or 
you can specify another. The memory 
required by this second copy is roughly 
50KB — for Index space and so on— plus 
the database. Further copies can be 
loaded from either of the two and copies 
can be called up one on top of the other. 
Copies can be quit individually. 

The illustration shows at the top the 
Q__Switch status indicators, (back- 
ground), this article being written in 
text®’, (bottom) the first FlashBack main 
window, (middle right) the first FlashBack 
secondary window, and (top right) the 
second FlashBack main window showing 
another record from the same file as is 
being used by the first copy. 

Some new keying has been provided. 
The next record can now be obtained 
either by Ctril+N or by Alt+Down and the 
previous one by Ctrl+B or Alt+Up. In- 
stead of having to re-start a Search 
operation from scratch after each inst- 
ance of a string is found, the next instance 
can be found by using Alt+ Shift+ Down. A 
Replace function has been added to the 
Search; when any search string is speci- 
fied you are prompted also for the replace 
string but pressing Enter without insert- 
ing a replacement string will initiate the 
search on its own. 

Search/Replace operations can be 
from either the current record on, or from 
the start of the file, depending whether 
initiated by Enter or Shift+Enter. The 
Index command is comparable with the 
Archive Order command. The Field on 
which indexing is to be based can be 
selected and there are three possible 
sorting orders; the default order is all 
alpha upper-case first followed by all 
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alpha lower-case, with the alternatives 
being upper- and lower-case for each 
letter and “as they come.” 

This is best illustrated by example — i) 
ABCabc, ii) AaBbCc and iii) aBcDEf. Fora 
dictionary, option iii is appropriate. Num- 
bers can be treated in two ways. The 
default is to treat them as “text”, as in 
FlashBack 1, so that 99 will be placed 
later in the order than 100, because the 
first character, 9, is later in the code table 
than 1. 

When the Index command is selected 
you can choose to have numbers treated 
in their normal numeric order — i.e., 99 
before 100 — instead. Successive Group 
actions can be taken, down to the point 
where only one record is current. In a 
names file containing both personal and 
business contracts it is possible to select 
business names by type, then carry-out 
further selection among them by specify- 
ing a particular product or brand. The 
following record is a fictitious example: 


Field 3: Autoway Motors, 11 Pickington 
Road, Beltringham. 

Field 4: Tel: 01-999 1212 (cars;Audi/VW- 
Rod Holliday,sales mgr.) 


By grouping on “cars;”, all such records 
would be made current, to the exclusion of 
any not involving car dealers. A further 
grouping, using “Audi” as the string, 
would eliminate any records of dealers not 
handling that brand. If only those dealers 
based in the London area are required, a 
further grouping could be made on either 
“London” or “(01)”. To carry this to the 
limit, grouping on “Rod” would be likely to 
reduce the number of current records to 
one. Printing can be based on such 
groupings, only the currently-selected 
records going to the printer. 


As you left it 


A feature which always impresses me, 
small though it may be, is that each time 
you re-load FlashBack the cursor is where 
you left it at the end of the previous 
session; further, the last strings used with 
commands are there when those com- 
mands are called up again. The size and 
location of the window are as set the last 
time the Size command (Shift+F4) was 
used. A very useful improvement over the 
original is that the current string does not 
have to be deleted to enter a new one, as 
the latter causes the former to be re- 
moved automatically. 

The status field is different now, having 
three indicators — C, | and G. The “C” 
appears in white when a change has been 
made to the file, the “I” appears likewise if 
the file is indexed, and the “G” also if the 
file is grouped. A point which will please 
Q__Switch users is the change of keying 
from Shift+ Caps Lock to Ctrl+Caps Lock 
to give case-dependence when using the 
Group or Search commands. 

The contents of database files can be 
written to disc in sections. If there are 
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several blocks of data in a file which need 
to be written-out separately, the Group 
command is used to select the blocks one 
at a time and the Write command is then 
followed by Shift+Enter, rather than En- 
ter, as you would write out the whole file. 

Two other new commands — Xclude 
and INclude — allow records to be treated 
separately from the Group criteria. A 
record which would meet the grouping 
criteria can be previously marked by 
Xclude and it will then not appear in the 
group; on the other hand, a record which 
does not meet the grouping criteria can be 
marked by INclude and it will then appear 
in the group. 

Grouping can be used for deleting large 
numbers of records; the records not to be 
deleted can be grouped and written-out to 
disc/cartridge, then read back in. The 
unwanted records will effectively have 
been deleted by the selective writing. 

A Quit command has been added. 
When it is used the program, indices and 
database file are removed. Although a 
check of free memory before and after 
may show no change, the space has been 
vacated, as can be proved by EXEC-ing 


figuration process for adding records, 

typically only a few KB. By using the 

Import process Quill files in a similar 

format to Abacus files can be handled at 
. any size. 

There is considerable choice in the 
layout of the fields for the dba file — 
Archive or Abacus fields can be merged 
during the conversion or several fields 
can be put on to the same line. If a one-to- 
one conversion of fields is sufficient all 
that is necessary once the program has 
Started is to press the ESC key for 
conversion to be made automatically. 

There is a concept available which is 
not found in Archive, referred to as “sub- 
records”. The example given is of a 
gramophone record catalogue, where 
each album may contain tracks by several 
artists/groups. In Archive, it is necessary 
to give each track, title and artist separate 
fields, to avoid problems when searching 
for particular titles or artists. FlashBack 
allows each occurrence of either title or 
artist on an album to be treated as a sub- 
record — i.e., track titles may be sub- 
records 9.1, 9.2 and so on. The Import 
routine offers the option to amalgamate 
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the program again. You can, therefore, 
remove FlashBack temporarily if memory 
is needed for other jobs, without the need 
to run the FlashBack boot to load it again 
later. There may be a fall of about 12KB in 
free memory when the program is re-run. 

The flexible design of FlashBack per- 
mits files from Quill, Archive and Abacus 
to be Imported in __dba file format, after 
they have been converted by a straight- 
forward Import routine — a separate 
program. This feature has been available 
from the start but was previously sug- 
gested for use with Archive only. Quill files 
can be Merged, provided they are in text- 
only format — usually with the extension 
—lis — but the file cannot be larger than 
the memory space allocated in the con- 
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sub-records after records have been 
converted. It is then possible to search the 
one field — number 9 in this example — 
for any track title, rather than having to 
search several fields. : 

Users have asked for additional fea- 
tures, such as a report generator. This, 
and a form generator and a printer-driver 
customiser, are supplied as stand-alone 
modules which can be used with Flash- 
Back. The general layout and specifica- 
tion of the new modules looks good. The 
command lines are clear and largely self- 
explanatory to those brought up on Quill 
and Archive. As with FlashBack, each of 
use is a prime consideration. These 
modules will be dealt with in the conclud- 
ing part of this review. 
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In the fourth part of 
our calculator/base 
conversion project, 
Mike Lloyd wraps up 
the main program. 


een followers of the Super- 
Basic QL Calculator project 
will by now have the screen a 
format and input routines for Summate z 
the program entered into their computers. ope ‘ 
By adding this month’s listings the project 
will be almost complete and will certainly 
be usable, with only the luxury extras 
offered by the menu options outstanding. 
The listings accompanying this article 
perform all the arithmetic undertaken by 
the QOL Calculator and they also format 
and print the output. Figure one shows the 
now familiar hierarchy formed from the 
relationships between the modules. The 
definitions on the lowest level support the 
modules on the next level up, which in 
turn are called from the root procedure at 
the top of the hierarchical tree. 


Tree analogy 


The tree analogy for this type of 
structure is so widely-accepted that it 
seems churlish to point out that roots are 
normally found at the bottom of trees, not 
at the top. Root has been used to denote 
the parent of any hierarchical data set 
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How the Summate Procedure Responds to the Input Strean 
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almost since the beginnings of computer 
science. It has established such credence 
that in the Unix multi-user operating 
system the person with the most privileges 
and ownership of the ultimate file direc- 
tory is universally known as root. It is too 
late to insist on changing the analogy for 
one more faithful to nature. 


Parented 


Even with such a compact hierarchy as 
that parented by the Summate procedure 
all of the advantages of structured prog- 
ramming are present. Necdless repetition 
of code is avoided by putting frequently- 
used algorithms into utility procedures 
called from various other definitions. This 
concentration of a single task into a single 
place in the program code also means that 
any changes to that algorithm can be 
introduced by amending the internal 
workings of a single segment of code 
rather than by making alterations 
throughout the program. 

Program readability is enhanced further 
by dividing the code into coherent seg- 
ments and by referring to any complex 
subordinate process by its user-provided 
name, 

Turning away from the inter- 
relationships between the definitions and 
towards their internal workings, the Sum- 
mate procedure in listing 3.1 is devoted to 
executing each step, or transaction, in a 
chain of calculations. Contrast this with 
the role of the input routine listed in the 
previous instalment and you will see that 
the program is switching constantly be- 
tween receiving information and acting on 
If. 


Such alternating reactive and pro-active 
phases are very common in real life. Chess 
players alternate between making a move 
and waiting for an opponent's response. 
Tennis players are either receiving the ball 
or returning it to an opponent. Armies are 
either attacking or defending. People 
either influence events or are influenced 
by them. The distinction between acting 
and reacting becomes less well-defined 
with each example but the essential 
principle remains truc. 

The key to understanding the workings 
of the code is in the use to which variables 
are put. Characters recognised as valid 
digits are placed in a variable called Num$ 
by the input routine listed earlier in the 
series. Num$ can be in any base from 
binary to hexidecimal and so its decimal 
equivalent is calculated and placed in the 
variable DecNum before any arithmetic 
takes place. 

For cach transaction two operators 
normally are involved. The one which 
triggered the call to Summate ts referred 
to as Key while its predecessor is known as 
Op. The numeric variable Ans — short for 
answer — holds the running total for cach 
calculation until eventually it is displayed 
as the final result when the cquals key ts 
pressed. Figure two shows why it is always 
the previous operator which is used to 
update the running total. 
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QL Calculator recognises four classes of 
arithmetic transaction — the first in a 
sequence, “running” transactions, subto- 
tals and the full total, which is always the 
last transaction in a sequence. 

For the first transaction, when the value 
of Op is 18 —.e., it represents a blank — 
the running total is made equal to the first 
value to be entered. Subsequent “run- 
ning™ transactions cause Ans to be mod- 
ified but it is not displayed until the equals 
sign is entered, when it is shown in the 
input area in the input base. If the next 
keypress is an arithmetic operator the sum 
continues, Pressing the equals key a 
second time forces the total to be con- 
verted to the output base and the variables 
zeroised in readiness for the next calcula- 
tion. 

Base conversion algorithms were ex- 
plained in the introductory article for the 
project. The functions appear again here 
in an adulterated form to cope with the 
special requirements of the program and 
with an important enhancement — they 
now handle negative values. The follow- 
ing explanations cover only the modifica- 
tions to the general-purpose functions. 

The code at listing 3.2 turns any number 
into its decimal equivalent. The standard 
algorithm is altered only to dispose of 
floating point decimal numbers and to 
convert negative integers. It might seem 
pointless to “convert” a number which is 


Adding this month’s 
listings will make the 
project almost 
complete and 
certainly usable, with 
only the luxurious items 
outstanding. 


already decimal but the statement at line 
3215 is not the simple /F base = 10 THEN 
RETURN Number $ which might have 
been expected. 

Instead, it allows decimal integers to go 
through the conversion process, This has 
the satisfactory side-effect of allowing 
decimal integers with up to eight digits to 
be displayed without resorting to the 
annoying “E™ notation. 


Valid digits 


The conversion routine expects a string 
consisting only of valid digits but the 
Num6$ string might also have leading zeros 
and a unary minus. The INSTR function 
on line 3220 is used to detect and locate a 
unary minus. If onc is found the tempor- 
ary string Value$ is sliced from Num$ to 
the right of the minus. Alternatively. 
Valuc$ is defined by the Left$ function. 
The conversion algorithm can now set to 
work; the result is multiplied by minus one 
if necessary and returned to the calling 
statement. 

Conversion in the other direction is 


more complex. The decimal number is 
held in the Number variable and its 
absolute — positive — value is copied to 
the temporary variable n. A string of 
blank characters. X$, is prepared to 
receive the final result. 

From__Dec$ is designed to receive 
integer or floating point numbers even 
though the conversion algorithm copes 
only with integers. The first special case to 
be handled is that of tiny fractions which 
the OL would represent in scientific 
format; they are all reduced to equal zero. 

The second special case handles num- 
bers which are too large to be displayed on 
the program portion of the screen. Three 
stages of overflow exist. A number might 
have too many digits only because it is 
represented in a small base, such as 
binary. Alternatively, it might be so large 
that its scientific notation exceeds 10 
digits. In other words it is greater than one 
followed by 99 zeros, Finally, it might be 
so huge that the QL crashes. 


No billions 


In the first circumstance an “overflow” 
flag is sct and a decimal number is 
returned, If a decimal number exceeds 10 
digits it is trimmed to fit the display area 
by splitting the number at the “E™ and 
removing as many digits as necessary from 
the left part before joining the number 
together again. 

Accuracy is reduced only slightly be- 
cause such huge floating point numbers 
are approximations anyway. Sadly. no- 
thing can be done about super-large 
numbers and the program will inevitably 
crash if one occurs, Calculations involving 
billions of billions will have to be under- 
taken elsewhere. 

By the end of the long IF statement at 
Line 3344 the routine has disposed of all 
extreme numbers, leaving the following 
three categories: 


* Values which can be displayed in eight 
or fewer digits in a non-decimal output 
base. 

* Values which would exceed eight digits 
if they were converted into the output 
base. 

* Values which are to remain in decimal. 


The first category is dealt with by the 
conversion algorithm detailed in the first 
instalment of the series. For both of the 
remaining categories the output is a 
decimal number. with the overflow flag 
being set if the output is a failed conver- 
sion to a non-decimal base. 

The arithmetic is now all over. so non- 
mathmeticians can address the more prac- 
tical problems of tailoring the output to 
suit the program constraints. Listing 3.4 
copes with all output to the screen and the 
printer. The routine begins by establishing 
a blank string of 14 characters. into which 
all output values will be concatenated. and 
by scrolling the screen display area to 
make room for the new display line. 
Output can be a number or a message. the 
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latter being distinguished by an asterisk as 
the first character. 

PrtOut appends to each non-blank 
output string the base identifier — A for 
hexidecimal, b for binary and so on — and 
the appropriate operator, Overflows are 
indicated by the presence of a question- 
mark instead of the base identifier. For 
printer output, division Is represented by a 
slash because Epson printers do not 
include the conventional division sign in 
their character sets. 

Listings 3.5 and 3.6 are general-purpose 
string functions which remove and replace 
leading blanks. Right$ adds blanks to the 
beginning of any text to pad the string 
length to exactly 10 characters. Left$ 
removes leading spaces for the benefit of 
the To__Dec$ function but it could be 
used whenever left justification was re- 
quired. 

The final procedure copes with under- 
lining for output to screen and printer. 
The underlining algorithm states that a 
subtotal is preceded by an underline anda 
final total is also underlined. Underlining 
therefore takes place whenever the equals 
sign is pressed except when the Op 
variable is set to 18, indicating that the 
equals sign is not being used to complete a 
sum. 

Once the accompanying listings have 
been added to the program, the QI. 
Calculator will work in floating point 
mode. By changing some of the values in 
the /nit_Var procedure there can be 
experiments with different input and 
output bases. The values chosen must 
accord with the advice given in figure 
three. 

Menu options to automate this process 
and to accomplish much more besides will 
be published next month to bring the 
project to its conclusion, 


Listing 3.1 


3100 DEFine PROCedure Summate 
31@2 LOCal DecNum 


3134 BSELect ON Key = 19 TO 24: 
3136 IF Key = 26 


3154 END IF 
3156 END DEFine Summate 
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: Our Urs. 
ae : . ritretr-bn-at-ben 
Bic 2 |[texxonoxrm. | 


IMPORTANT: THE vaARTAeLE 
MUST BE SET EQUAL TO ZERO ONLY IF 


BOTH THE INPUT AND_T 


IS DECIMAL. 
A BASE OTHER 
BEING USED. 


Facure 3 


DEFine FuNction 
3205 LOCal y, 2, Valu 
3210 digit = "912345 


3215 IF NOT IntOnlys 
3220 Break = "~-" INST 
3225 IF Break 

3230 Values = Numbe 
3235 ELSE 

3240 Value# = Left 


3245 END IF 

3250 z = @ 

3255 FOR y = @ TO LEN 

3260 z = z +(Base ~ 
INSTR digit® ~ 

3265 END FOR y 

IF Breaks z= z 

3275 RETurn Right® (2 

END DEFine To_De 


S104 DecNum = To _Dec$(In_Base, Num$) 3.5 
3104 SELect ON op picid i 
3 = : 
mine 7 aan abd a a - 3308 DEFine FuNction From _Dec# (Base, Number) 
sis See Te eum 3304 LOCal ex, ny, *$(1@), digit#(16), Temp% (14) 
S1i20 = Zin Ans = Ans + DecNum digit® = "O123456789ABCDEF" 
Sli4 = 23: Ans = Ans * DecNum nh = ABS (Number): »& = Be 
31160 = 25 2 
IF n < 1E- “oO 

3116 TP Decninm <> 8 IF Louiigeuers 6 Ie ee, ta 
312@ Ans = Ans / DecNum Overtlow = (Base <> 10) 
*1272 
ae oe ¢ liane tak oe " Temp$ = Number: Break = "E" INSTR Temp® 
= a ee rtou iv by @ x = Temp: Temp = Temp% (Break TO) 
She x$ (12 - " “ INSTR Temp$ TO) = Temps 
3128 END SELect RETurn x6 
3130 PrtOQut From_Dec$ (OQut_ Base, DecNum) END IF 

? = 
ia2 NuGt = BS IF Base <> 18 AND n <~ Base"a 


ap = Key + 1 IF N 


3136 SELect ON op gia 
3140 = 20 TO 25: op = 26 n 
S142 Num# = From_Dec# (In_Base, Ans) END 
3144 IF Overflow RETu 
Z146 PrtOut Num#: op = 18: Num$ = BS 3376 END IF 
3148 END IF 3380 Over fl 
3150 = 26 op = 18: Ans = @ 3384 RETurn 
3152. END S€Lect : , 


3388 END DE 


iE OUTPUT 
SET To 1 =F 
THAN DECIMAL xs 


Number $) 
Break 


To_Dec# (Base, 
e%(10), digit#(16), 
6789ABRCDEF " 

RETurn Number 
R Number & 


r$ (Break +1 TO) 


(Number $) 


(Values) —i 
y) *(Values 
1) 


(LEN (Value) -y) 


* —1 
) 
c$ 


umber <O: x#$(9-INT(LN(n) /LN(Base))) ==" 


ex = INT (LNin)/LN(Base)) TO @ STEP ~1 
(10 -ex) = digit#(1 +INT(n /Base “ex)) 
= (n -(Base “ex) *INTin /Base “ex)) 
FOR ex 

roo 


ow = (Base <> 1@) 
Rights (Number) 
Fine From_Dec® 
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Listing 3.4 
3408 DEFine FROCedure FrtOut (Text) 
3404 LOCal Temps (14) 
3408 Temp$ = FILL#«(" ", 14) 

3412 AT 8, @: SCROLL -1@0, 1: AT 7, @ 

S416 IF Text#(1) = "#*" 
2428 Hue 2: Temp% = Texts 

| 3424 ELSE 

3428 Hue 4: Underline 

S432 IF Overflow 

3436 Temp$(ii) = "?" 
3440 ELSE 
3444 IF Text% <> BS 

3448 Temp$ (11) = BaseTag# (Out _Val) 
3452 END IF , 

. 32456 END IF 
3460 Temp® (13) = Valid#® (ap) 
3464 Temp# (1 TO LEN (Text#)) = Text% 
3468 END IF 
3472 CLS 3: PRINT Temp#(1 TO 1%): AT 8, @O: UNDER @ 
3476 IF PrtOn 
3480 IF Temp#(13) = CHR#(187): Temp#(isS) = "/" 
3484 FPRINT#5; Temp# (1 TO 15) 


3505 
351 


3700 
3705 
3710 
3715 
3720 
3725 
37238 


S750 
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Listing 


Listing 


aa) 


TT 
aa 


3500 DEFine FuNetion 


IF LEN (Text#) 
RETurn FILLS ¢" 


Listing 3.64 


2.7 


(hey 


= 


xs 
MBS 


Right% 


3488 END IF 
| 3492 END DEFine 


(Text) 


* 9s RETurn Texts 


"y id 
3515 END DEFine Rights 


gt 


26 AND op < 


-LEN (Text#)) 


& (Key 


& Text& 


3600 DEFine FuNction Left (Text) 
3605 LOCal x, Temp#(1@) 

32610 Temp = Text 

3615 FOR x = 1 TO 10 

3620 IF Temp#(x) «> " "s EXIT x 

2625 END FOR x 

3630 RETurn Temp# (x TO 1@) 

3635 END DEFine Left% 


DEFine FROCedure UnderLine 
_OCal x 
UNDER 
IF PrtOn 

CHR (27) 
PRINT#S; 
END IF 
END DEFine 


- 18) 


26 AND op 
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TRANSFERS 
without tears 


There are many ways to move files between a 
QL and a PC. You pay your money and you 
take your choice. Bryan Davies reassesses the 
file transfer programs available to date. 


here were several developments 

in the area of file transfer during 

1988 and 1989 started with some 

more. You can now move a wide 
range of file types between a home-based 
QL and an office PC — and in the reverse 
direction. With certain file types you can 
avoid the chore of having to re-insert 
printing codes. The ultimate in theory at 
least is to be able to use the same files, on 
the same discs, on both types of computer, 
and that also is now possible. 

What is not possible at the moment is to 
transfer spreadsheet files complete with 
formulae; the data can be transferred but 
the formulae are lost. Neither can prog- 
rams be taken from one computer type 
and run on the other but, if you can write 
in SuperBasic and have compilers for the 
C language, you can do the writing on the 
QL and the running on both QL and PC. 

All the programs mentioned run on the 
QL — you do not have to buy anything 
extra for the PC nor do you have to do 
anything special on it; the PC and the 
programs you run on it are used in the 
normal way to load and save files. There is 
no need for inter-connecting cables; you 
take discs from PC or QL and insert them 
in the other system. 

In the case of the emulator, you do not 
even need a PC. There have to be 


reservations, of course, but they are not . 


due primarily to the transfer programs. 
The disc modes and formats used on PCs 
are somewhat different from those used 
on the QL and, although allowances are 
made for this in the programs, they can do 
nothing about the fact that OL drives are 
not equipped to handle high-density discs. 

Much as you might fancy the idea, you 
cannot increase your QL disc capacity to 
1.2MB or 1.44MB; a suitable interface 
could be designed but existing drives are 
almost certainly unsuitable for working at 
the higher densities and new drives would 
not be cheap — typically £150-£200 for a 
single 3.5in. drive, without interface or 
power supply, on a PC. 

The basic difference between the PC 40- 
track and QL 80-track 5,25in. drives is 
dealt with by the software, but you may 
have to provide some information to 
enable the programs to make the neces- 
sary changes. 
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The two dominant operating systems on 
micros are CP/M, as used on the Amstrad 
PCW series and Commodore 64, and PC- 
DOS/MS-DOS for IBM PC/XT/AT mod- 
els and their clones. In terms of numbers 
of users, there may be more call for CP/M- 
related programs than for MS-DOS ones 
and CP/M is catered for by the programs 
mentioned. MS-DOS is much more the 
current interest than CP/M except where 
games are concerned and it is assumed 
that readers are concerned primarily with 
transfers to and from a PC in the IBM or 
compatible sense. 

Inevitably, the emphasis is on the 


‘transfer of text files. You can transfer 


spreadsheet or database files but the 
programs available do not offer facilities 
for making them easily usable afterwards. 
With the formulae or the layout lost you 
might well think the effort of re-creating 
them is not worthwhile; it is better to start 
from scratch and create new files in the 
other machine. 

That does not apply to an 
emulation program. As the 
files are unchanged in 
the transfer process 
you can continue 
working on them 
as normal, whe- 
ther they be 
word process- 
ing, spread- 
sheet or data- 
base files. 
Although 
Hort a, 
con; # 
in 


sidered 
the context 
of this article, the 
Import program supplied 
with Flashback provides a means 
of taking Quill, Abacus and Archive files’ 
and putting them in a format suitable for 
use in FlashBack, without further atten- 
tion; no provision is made for transfer in 
the reverse direction. 

What are the reasons for buying an 
emulator? Emulation programs cost ab- 
out the same as other major programs 
and, no doubt, many copies will be sold to 
users who buy out of interest rather than 
to meet a specific need. Perhaps the user is 
interested in seeing what programs for 


other machines are like, or how the 
machines operate. Buying an emulator is 
cheaper than buying the other machine 
and gives the user a chance in part to 
evaluate something he may be considering 
buying. 

It is certain that some QL users will 
have had a CP/M machine and will have 
programs used on that; some of the 
programs may still have no direct counter- 
part on the QL and a CP/M emulator 
provides the facility to run them. 

There are also PC users among the QL 
fraternity and they will already have a 
version of MS-DOS, plus programs such 
as WordStar and SuperCalc. Some of 
those users will work on a PC in their 
offices and may want to continue some 
jobs when they get home. Others may feel 
that learning to use a PC will be an 
inevitable part of business life in future, so 
why not look at it now, in the relative 
peace and quiet of the home QL atmos- 
phere? 

Swapping files by means of a conversion 
utility enables work to be taken to and 
from the office but the time taken by the 
conversion process may be unacceptable if 
extensive editing is required to get the 
transferred file to print-out with the same 
typestyle enhancements. 


Success 


This CP/M emulator is now the only one 
freely available, the Sandy ver- 


sion having Ydisappeared 
from ad- Overtisements 
when Yihat company left 
the Y QL market. Success 


oY anyway, is a rather better 
Yemulator. Two versions of 
the program are sup- 

plied on the same 
disc — one for QL 
and the other for 
Thor 20/21. The 
formatofthe 
program is 


Is, 


of the 
IBM emulators, 
in that you do not run a copy of the CP/M 
operating system after it, because version 
2.2 of that OS is emulated in Success. 
All the features of CP/M are there. 
All you need is Success plus CP/M ver- 
sions of your favourite programs. 
You can also write and run Z-80 assem- 
bler programs. It is simple to get started 
if your CP/M discs are in a format Success 
accepts immediately. Microdrives and 
RAM discs are still usable devices 
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but CP/M programs must be on disc. 

If the disc format is not accepted 
initially you have to go through a conver- 
sion process, which may be fairly straight- 
forward for a hacker but may not be so 
with some disc formats for a non-technical 
user. At least one disc drive and 640KB of 
memory are required to run Success. 
Speed of operation is quoted as equivalent 
to a 2MHz Z-80 processor; that is similar 
to that of many CP/M machines, so is fast 
compared to the MS/DOS emulators. 
Qdos and CP/M jobs can be multi-tasked. 
Apart from the large commercial library 
of CP/M programs there is a vast range of 
public domain software available. 


The Solution 


The attractions of an MS/DOS emula- 
tor are similar to that for CP/M emulation 
— a large range of commercial and public 
domain software is available and the user 
may have several programs as a result of 
previous involvement with those machi- 
nes. PC-DOS can be taken as being the 
same as MS-DOS so far as the programs 
which run with them are concerned; PC- 
DOS is used only on IBM machines. 

MS-DOS offers little joy as an operat- 
ing system. It rarely rates favourable 
comment from journalists; compared to 
Qdos it is a pain. The only thing which 
really counts for it is that it is firmly 
associated with IBM and the PC and there 
are an estimated 15-20 million computers 
round the world using it. 

The Solution can be expected to work 
with most versions of MS-DOS and has 
been tested with various stages of versions 
2,3 and 4. The emulation approach is, as 
with Success, to use software to simulate 
the PC hardware but the difference is that 
the operating system is not emulated but is 
run separately in the same form as it is ona 
PC — the emulation program is set 
running and it then runs MS-DOS from a 
separate disc. 

An interesting aspect of this non- 
hardware approach to emulation is that 
there should be no argument about 
whether or not the BIOS, which is on 
ROM in PCs, is a copy of the original, 
because it is written in 68000 code and, 
therefore, looks unlike 8086 code. You 
need at least one disc drive and a 
minimum of about 384KB of memory. As 
PC programs tend to be much larger than 
their QL equivalents you really need to 
have a Trump Card fitted to be able to run 
some of them. 

Microdrives and RAM discs are not 
usable. Speed of operation is quoted as 
being typically 10 percent of that of a 
standard PC-XT, which is rather slow. 
The perceived speed varies considerably 
with the program and type of job. There is 
a noticeable lag in characters appearing on 
the screen when using a word processing 
program but the usual input buffer allows 
you to type well ahead of the display 
without losing characters; response to 
command keys is good. 
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When word processing, most of the 
processor time is spent reading in 
keyboard input or waiting for it and 
processor speed is not the most important 
factor; under those circumstances effec- 
tive speed may be as high as 90 percent of 
an XT. 

Coming from a fast AT with fast hard 
disc to the emulator, the slow-down is 
marked but that is true when the QL is 
used in its normal Qdos mode. On the 
other hand, if you have been used to a 
basic IBM PC with only floppy drives, you 
will not feel the change so much. For those 
who habitually use the basic Quill ona QL 
which is running other jobs at the same 
time there may be little difference. 

For typical files, a slower speed is 
acceptable but writing a long book could 
become a chore. As loading and 
saving are a major part of 
word processing opera- 
tions, the times taken 
for them are of simi- 
lar importance to 
processor speed 
and 360KB 
floppy drives 
make the PCa 
slow mach- 
ine. The 
advent of 
hard 
disc 
im- prove op- 

erating speed with 
the emulator: it is hoped that 
partitioning of the hard disc will 
be possible between Qdos and MS-DOS 
and the latter already allows partitions for 
other operating systems such as Unix. 

The big thing is that you take not only 
the progam discs but the data ones also 
directly from a PC and put them into the 
QL drives and continue working on the 
same files, taking them back to the PC 
after editing. The emulation even has 
some advantages over the PC; the DOS 
area available to the user rises from 
640KB to 667KB — maximum, on an 
896KB system — and the disc drives can 
be 80-track if you have them and give 
720KB storage space on the 5.2Sin. disc. 

You can multi-task Qdos and MS-DOS 
if your system has sufficient memory. At 
the moment I am typing into text87, 
running under Qdos and watching Quill 
text appearing on the screen simulta- 
neously under MS-DOS; there is no doubt 
the QL is multi-tasking, because two 
portions of text are being written to the 
screen at the same time. Disc drives can be 
allocated separately to Qdos and MS- 
DOS; the latter can be booted from either 
drive, the boot drive being regarded by it 
as A:. 

It is recommended that you use a speed- 
up program such as Lightning to improve 
the rate at which characters are displayed 
on the screen and also the speed of 
processing. Appreciably faster running 
is obtained on the Thor XVI and 
the Atari QL Emulator — claimed 


to be 2.5 times as fast as on the QL, 

Compatibility is a familiar word in the 
PC world and The Solution creates no 
significant problem. It will run almost all 
the well-known programs — Lotus 1-2-3, 
WordStar, WordPerfect, and Word. Those 
it cannot run may well not run on PC 
clones either. There are practical restric- 
tions, which apply equally to PCs; 
graphics files created using an EGA 
screen cannot be displayed, because the 


emulation is of a CGA display. 
Programs requiring key- 
board in- / put as found in 
Flight Simulator cannot 


“work, although the de- 

monstration mode of FS 
works. 

There are obvi- 

ous _ differences 

between OL and 


some 
PC keying to be 
altered to suit the QL. F1-F5 are the same 
but F6-F10 become CTRL+6-CTRL+0; 
you can customise keying to your require- 
ments if the basic set-up does not suit you. 

The “chocolate” version of The Solu- 
tion is complete with MS-DOS version 
4.0, a debugged version which seems to 
work normally but is suitable only for the 
PC & XT, not the AT; it includes GW 
Basic but Microsoft supplies no documen- 
tation for it. A public domain Basic is 
supplied with the “vanilla” version. IBM 
Basic and BasicA do not run, nor do they 
on typical PC clones. The main thing is 
that the emulation is very solid — flicker- 
ing screens, crashes and error messages 
are unlikely, provided you have followed 
a few basic procedures given in the 
comprehensive manual. 

DiscOVER 

This was reviewed in the February, 1988 
issue of QL World. Briefly, it treats one 
QL disc drive as the host (Qdos) and the 
other as the “alien” (MS-DOS), Put an 
appropriate disc into either drive and you 
can convert the files on it into a form 
which can be read on the other type of 
system, the converted files being written 
to the other drive. This is primarily a disc 
format change. What the basic program 
does not do is ensure that special codes 
used in files for one program are changed 
to whatever codes are appropriate to 
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another program. This is not something 
peculiar to conversion between different 
types of computer, as it occurs also if you 
transfer Quill —doc files into The Editor 
on the QL. 

The program offers a partial solution to 
this problem in the form of transfer files. 
Users of The Editor will grasp the idea 
easily; you have to make a translation 
table, listing the special codes which will 
be found in the original file and the 
equivalent codes which need to be in- 
serted in their place in the converted file. 
That file can be loaded when you start a 
conversion and it will be scanned for the 
replacement codes to be placed 
automatically in the conver- 
ted file. The creation of 
the translation tables 
can be a chore and it 
isa job which will be 
beyond = some 
users’ ability 
but there is 
nothing — pre- 
venting you 
making 
any nec- 
essary 


| 


chan- 
ges when 
the converted file 
is loaded into the “other” program. 
The process is time-consuming, of 
course. DiscOVER works very smoothly 
and fast and I have found it a complctely 
successful way of transferring files be- 
tween QL and PC. Transfers are not 
limited to QL-IBM but include the Apri- 
cot versions of IBM format. What you 
cannot do is take an Export-ed Abacus 
file, convert it, and have the formulac 
present when it is loaded into Abacus ona 
PC: the data is there but the formulac are 
not and this is a function of the Psion 
Export/Import process. not of DiscOV- 
ER. 


Multi-DiscOVER 


This is a development from DiscOV- 
ER. Itallows transfers to and from a wider 
range of formats — IBM MS-DOS (in- 
cluding Apricot), BBC DFS/ADFS, CP/ 
M and Unix CPIO. Transfers can be made 
to and from each of these and QOdos 
format. Automatic adjustment is made for 
drive type —-- 40- or 80-track — and 40- 
track discs can be read and normally 
written to in 80-track drives. Directory/ 
sub-directory structures are supported. 
As with TexTidy, there is incompatibility 
with Lightning, SpeedScreen and Toolkit 
IH, so that the program has to be run after 
a computer re-set. The menu screen and 
controls are similar to those for Disc- 
OVER. 

All QI. storage devices, including hard 
disc, are usable: Thor models are sup- 
ported. As with DiscOVER, the facility 
provided for looking at the contents of a 
file can be very useful. Users familiar with 
Multi-DiscOVER, although I find using it 
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rather less intuitive. possibly because of 
the greater number of features available. 
Neither program offers ready-made 
translation files for dealing with the code 
changes needed when moving from one 
program to another but advice is given on 
creating your own files for this purpose. 
TexTidy can 9 be used for 
some con- version jobs. 
There is plenty of tech- 
nical detail about disc 
for- mats in the instruc- 
tions; much of the infor- 
mation given will be of 
general help to users 
who are not parti- 
cularly know- 
ledgable about 
such matters. 


XOver 

This is 
utili- 
ty 


sup- 
plicd with The 
Solution. It is also supplied with Media 
Manager Special Edition and has the same 
menu format as that program. It enables 
files on MS-DOS or TOS (Atari) format 
discs to be transferred to Qdos format 
discs and vice versa. Other operations 
which are provided are Delete and Re- 
name — DOS discs only — and conver- 
sion of the IBM version of ASCII charac- 
ter codes to the Odos version; again, the 
reverse process is also available. 

The latter function deals with the 
differences between the two company 
formats in handling characters with codes 
above decimal 127 and in the end-of-line 
codes used. Another facility is to format 
“alien” discs. You can take a Qdos-format 
disc and make it a DOS-format disc. An 
unexpected use for this was to format a 
3.5in. disc with 40 tracks, since this odd 
format was required to attempt loading 
the Ant MS-DOS emulator; MS-DOS 3.2 
and 3.3 on my AT refused to format this 
disc size with 40 tracks. 

This was produced to solve some of the 
difficulties arising from use of Dise- 
OVER. It is not a transfer utility in the 
same sense but performs the translation 
operations needed to make a text file look 
the same when transferred into a “new” 
program, whether on the QL or another 
computer. The program can remove any 
embedded codes from a file, producing 
pure ASCH output, In the process it can 
end lines with either line-feed (LF) or line- 
fecd plus carriage-return (LF+CR) codes, 
as required by the receiving system. 


The same operations can be performed 
on both PC Quill and QL/Thor Quill files. 
Likewise, WordStar files can be stripped 
of codes so that they are suitable for input 
and direct editing by The Editor, or for 
Importing into Quill. QL and PC Quill 
document files can be converted into a 
form suitable for use in WordStar, retain- 
ing the control codes for text enhance- 
ments such as bold and underlining. 

The instructions warn the user that 
TexTidy has difficulty if run with Spceed- 
Screen, Lightning or Toolkit III — it is 
satisfactory with Toolkit 1] — and this 
means you may have to run it in a “clean 
machine” rather than when your usual 
programs are loaded; this will be inconve- 
nient for some users. 

The screen presentation is consistent 
with the associated programs discOVER 
and Multi-DiscCOVER and use is fairly 
straightforward without the need for the 
written instructions. For those who wish 
to transfer files between programs not 
dealt with, the principles of the process 
can be observed in TexTidy, for a relative- 
ly low price, to help with development of 
conversion files which can then be used to 
give automatic conversion with cither 
version of DiscOVER. 


SuperBasic C-Port 


Originally called plain Basic C-Port, 
this program has been re-launched in 
improved form. Its purpose is to take 
source code — program lines — written in 
QL SuperBasic and convert them into 
code in the C language. The C code can 
then be compiled with a C compiler, which 
has to be ANSI- or Lattice C-compatible; a 
“Small C” compiler such as the DP Digital 
C is not fully-compatible. 

Compilers for the QL, such as that from 
Metacomco, are no longer casily obtain- 
able but PDOL expects to introduce a 
Lattice C compiler soon. As C is a 
relatively portable language, the code 
obtained from running SB code through 
SuperBasic C-Port on the QL can be 
compiled by a PC compiler and run on 
PCs; the British Standards Institute has 
cast some doubt on how compatible 
certain PC compilers are with the ANSI 
standard but it is not anticipated there will 
be any major problems compiling files 
from C-Port. 


INFORMATION: 

SuperBasic C-Port, £79; TexTidy, 
£10; Multi-DiscOVER, £39; DiscOV- 
ER £29.50: : 

PDOL Computer Systems, Unit 1, 
Heaton House, Camden Strect. 
Birmingham B1 3BZ. Tel: 021 200 
2313 


The Solution MS-DOS emulator (in- 
cluding XOver), £79.95 (£129.95 with 
MS-DOS 4.0); Success CP/M emula- 
tor, £49.95: 

Digital Precision, 222 The Avenue, 
Chingford, London E4 9SE. Tel: 01- 
527 5493. 
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introduced functions to interrogate 

the channel definition block which 

stores details of windows and other 

channels in use a year ago. This 
month’s code goes one step further, 
reading the QL display memory so that 
programs can check the colour of any 
point on the screen. This is a very useful 
function but curiously it is not available in 
popular commercial toolkits. 

The code of the PIXEL% function 
illustrates many important features of OL 
design, including the arrangement of 
display memory, the way the console 
device can be extended and, for the first 
time in DIY Toolkit, the handling of 
default parameters. 

Defaults are important because they 
allow programmers to simplify their code 
by omitting parameters. PIXEL% de- 
faults to reading channel #1, which makes 
it an ideal companion for the USE com- 
mand, introduced in DIY Toolkit in 
March last year. You can use a similar 
technique to add defaults to the channel 
access functions of your own toolkit code. 

The PIXEL% function uses the EX- 
TOP system-call to add extra code to the 


QL display device. The workings of 
EXTOP were explained in the May, 1988 
DIY Toolkit. 

The first 32K of QL RAM is known as 
display memory, because any data stored 
in it appears as a pattern of dots on the 
screen. The first SuperBasic compiler, 
Supercharge, used screen memory to store 
details of the program it was compiling. 
Nowadays serious QL users have ex- 
panded memory and such tricks are 
unnecessary but Supercharge demons- 
trated that, apart from the mess on the 
screen display, memory works like normal 
RAM. 


Dot control 


Each consecutive pair of bytes or ‘word’ 
in display memory controls a row of dots 
on the QL screen. In the high-resolution 
MODE 4 each word determines the 
colour of eight dots. The other mode 
trades extra colours for a reduced number 
of dots, so one word controls four dots in 
MODE 8. 


«4 


TOOLKIT 


Each month Simon Goodwin adds 
new commands to the QL repertoire. 
This month he shows how to handle 
default parameters and read the 
colour of screen points. 


PIXEL% can distinguish automatically 
between MODE 8 and MODE 4 displays. 
The difference in stored format is ex- 
plained in the QL User Guide Memory 
Map in the Concepts section of the 
December, 1984 edition. 


Dot colour 


The function PIXEL% tells you the 
colour of a specified dot on the QL screen. 
The name of the function is a contraction 
of ‘PICture ELement’ or ‘Picture CEL1’, 
the technical name for the individual dots 
which make up text and graphics displays. 
The size of OL pixels varies depending on 
the graphics mode in use. 

MODE 8 displays are made up from a 
grid of 65,536 pixels — 256 vertically and 
the same number horizontally — where 
each dot can be in any one of eight 
colours, numbered from Black (0) to 
White (7), ranging through the spectrum 
in steadily-increasing brightness. MODE 
4 gives twice as many pixels — 131,072, 
made up of 256 lines with 512 pixels on 
each line. 

Colours are numbered the same way 
regardless of mode but only four colours 
are allowed in MODE 4, so you can use 
two values for each displayed colour; 0 
and 1 give black, 2 and 3 red, 4 and 5 
green, and 6 and 7 white. Once a dot has 
been displayed PIXEL% cannot tell 
which variant you used and it makes no 
difference in any case, so in MODE 4 it 
returns the values corresponding to the 
same colours in MODE 8 — 0, 2, 4 and 7. 

PIXEL% uses the QL ‘pixel co- 
ordinate scheme’, explained in the Con- 
cepts section of the QL User Guide. Co- 
ordinates are relative to the top left corner 
of the specified window, as in commands 
like BLOCK. To access the whole screen, 
just: 


OPEN #3,SCR__512x256a0x0 


and read from channel 3. You can read the 
colour of dots in a window whether or not 


it is set up to allow character input, so 
PIXEL% works with CONsole or 
ACReen windows. 

The function has two or three para- 
meters — an optional channel number, 
followed by the X and Y co-ordinates of 
the point to be read. It checks that the 
channel number corresponds to an open 
display channel normally an ‘SCR’ or 
‘CON’ channel ona standard OL. You get 
a ‘bad parameter’ error if you specify the 
incorrect number of parameters or the 
wrong type of channel. 

Like BLOCK and WINDOW, PIX- 
EL% uses the same co-ordinate scheme 
regardless of mode. Horizontal co- 
ordinates in MODE 8 are always even, so 
the 256 dots on a line are at co-ordinates 0, 
2,4... 508, 510. If you supply an odd 
number it is rounded down. 


Window mirror 


Listing three shows how PIXEL% can 
be used to mirror the contents of a 
window. The procedure MIRROR in the 
listing uses PIXEL% and _ the 
CHAN__W% function from May last 
year to flip the contents of a window from 
left to right, so it can be read in a mirror. 

You can use this procedure to generate 
projected displays with your QL, or when 
printing plans. It is particularly useful 
when building circuit boards; you can 
design the board from the component side 
and print a mirror-image of the finished 
layout when you need to know how 
everything will look from the solder side 
of the board. 

This routine takes a time, even when 
compiled, because it uses the BLOCK 
routine which is optimised for large areas 
and it accesses each point in the window 
individually. MIRROR must make more 
than a quarter of a million system calls to 
flip a full-sized MODE 4 window. Each 
call involves much work by the system 
ROM before the external routine is 
invoked. The PIXEL% code is trivial 
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i: ilabas ealmactualeeaeaaesertroone oo 


; 


* BL WORLD DIY TOOLKIT - pixel graphics function 
# Version 0.5, Copyright 1989 Sigon N Goodwin. 


# PIXELZ code - process 2 or 3 parameters 


# bai.s = range_err 

start lea.l =‘ define,al cap.w =. 30{a0) ,d2 Check Y < CH, HEIGHT 
aove.w $110,a2 BP. INIT vector bec.s = range_err 
jap (a2) tst.w di Check X >= 0 


bai.s range_err 
cap.w 2B4a0),d1 


pixtop tst.n = d2 


Check Y >= 0 


Check X ¢ CH.WIDTH 


compared to the BLOCK routine and the 
unavoidable Sinclair TRAP handler. 

For best results with Turbo add IMPLI- 
CIT% x,y at the head of the program. If 
you want the code to run really fast you 
must write a new code to process several 
dots at once. 
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+ bec.S = range_err 
pixel aove.w $112,a2 Vector to get integers add.w = 24{a0),d1 Add window offset to X 
jsr {a2) CA. GTINT add.w =. 2 (a0) ,d2 Add window offset to Y 
bne.s _—bad_exit + 
acveg = #1, 00 Assume channel } for now # Find the relevant word in video sesory 
subqg.w #2,d3 At least 2 paraseters? ¢ 
beq.5  get_coords Exactly 2, use #! aode4 move.! 50(a0),a2 Get screen base address 
bai.s bad_paras Less than 2: an error Isl.w = #7,d2 1 line uses 2°7 = 128 bytes 
subg.w 91,d3 Only one extra parameter? add.w =. d2,a2 Bet address of start of line 
bne.s bad_paras No, sore than 3, complain move.w dl, d2 Save original X co-ordinate 
aove.w Olai,ab.1),d0 Get BASIC channel nusber Isr.w = 42, Get word offset on line 
addq.) #2, al Discard channel paraseter and.w = #12, d! Ensure offset is even, 0-126 
t add.w = dd, a2 A2 -> relevant screen word 
get_coords move.w ((as,ab.1),d! Get X co-ordinate aove.w {a2),d1 Di.W is the video word 
move. 2(al,ab.1),d2 Get Y co-ordinate and.w = #7, d2 D2 = pixel offset in word, 0-7 
addq.) #2, a1 Leave roos for one INT # 
aove.] al, $58{ad) Set aaths stack pointer # Extract the pixel in aode 4 or 8 
t + 
# Check and convert channel number in DO to ID in Ad btst #3, 52(ab) Check aode 
# bne.s mode Use sask for 8 colours 
chan_sel aulu 940,00 Channel table size soveg 47,00 
add,] $30(a6),d0 Add base offset sub.w 2,0 Reverse offset to 7-0 
cap.1  $34(a6),d0 Isr.w = dO, dd Move pixel data to LS bits 
bge.s  what_chan Past end of table? and.w = #257,d3 Mask for 4 colours 
sove.] 0fab,d0.1),d0 add.b = dl dil Double red bit weight 
bpl.s — chan_open Negative if closed aove.w di,d2 D2 = 00000006 000000R0 
+ Isr.w 84, d2 D2.B = 00000600 
# Error return points or.b d2,d3 DI,B = O0000BR0 
* cap.b = #6, d Conventional value 0, 2, 4? 
what_chan goveg  4#-6,d0 CHANNEL NOT OPEN error bne.s got_value 
bad exit rts Error cede is in DO addq.b = #1, 1 Translate 6 to 7 (White) 
bad parae moveq 4-15,d0 BAD PARAMETER error bra.s got_value 
rts t 
range_err moveq 4-4,d0 Out of Range report code aodeB aoveg = 44, d0 
rts belr 40,02 Ensure even X in MODE 8 
# sub.w 2,d0 Reverse offset to 6-0 
# Call EXTOP routine passing AQ, D1 and 02 Isr.w 0, 03 Move pixel data to LS bits 
+ and.w «= #515, d1 Mask for 8 colours 
chan_open move. d0,a0 AQ is channel ID move.w d1,d2 D2 = 00000060 O00000RB 
lea.) — pixtop,a2 Address of routine Isr.w = 97,2 02.8 = 0000600 
aoveq 4-1,03 Allow infinite tise or.b 42,d1 DI.B = OO0Q00GRB 
acveg = #9, d0 SD.EXTOP key got_value ext.w dl 
trap #3 Call the device driver aoveg 40,00 Signal no error 
aove.! $58{ab),al Retrieve saths stack pointer rts 
+ + 
return_int move.w d1,Q(al,a6.1) Put result in space define dc. 0,0 No procedures 
aoveg 953,04 Indicate type is INT dc. 1 One function 
rts Return EXTOP error code dc.W pixel-# 
+ dc.b 6,’PIXELY’ 
# PIxel eXTended OPeration routine: reads pixel data. ds. 0 
# D1.Wis the ¥ co-ordinate, D2.W is the Y co-ordinate dc.wW 9 End of list 
# The result is returned in D1, or error code -4 in DO end 


Listing three will not work in MODE 8 
without changes, because of the smaller 
number of pixels in that mode. The 
BLOCK 1,1 commands set a single 
MODE 4 pixel, which Sinclair rounds 
down to no MODE 8 pixels at all. 

To flip a window in MODE 8, change 


lines 200 and 210 to start BLOCK 2,1 

. . andadd STEP 2 at the end of line 180, 
so the program reads only even X co- 
ordinates. The good news is that the 
MODE 8 version will be twice as fast, 
because it has half as many pixels to read 
for a given display area. 
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You can use PIXEL% for many other 
applications when speed is less of a 
problem — for instance to check when 
moving graphics collide on the screen. 


No MODE 12 


The functions have been written to 
work reliably on any QL or compatible, 
including the CST Thor and Thor 16. They 
do not handle the Thor 16-colour MODE 
12, because designer David Oliver failed 
to supply information about Thor-specific 
features, but it should be easy to adapt the 
MODE 8 code to suit MODE 12 if you can 
obtain the information from CST. 

Like the CHAN functions, PIXEL% 
uses the SD.EXTOP routine to access 
channel details. That means it is not 
disturbed by the extra channel informa- 
tion which ORAM and Thor windowing 
systems tack on to the start of a channel 
block. QLs and most Thors keep the 
display information at a fixed address, 
131072, but the Thor 16 is more flexible 
and can have several 32K display maps at 
different addresses. PIXEL% reads the 
base address of the display from offset 50 
in the channel details, so it takes multiple 
display areas in its stride. 

The code for the channel access func- 
uions is listed in two forms. Listing two 
gives you a quick way to enter the code 
without using an assembler. It loads the 
equivalent machine code from DATA 
statements and saves the code in a file. 
Once you have loaded that file, as follows, 
you can use PIXEL in your own prog- 
rams: 


base=RESPR(242) LBYTES “file 
name”, base : CALL base 


Type NEW after loading the code on an 
AH or JM QL to ensure that early QL 
ROMs are not confused by prior use of the 
name PIXEL%. 


Loader 


The first part of listing two is Marcus 
Jeffery’s standard loader, used in every 
month’s DIY Toolkit project. Only the 
DATA, from line 590 onwards, changes 
from month to month. Listing one is the 
assembly code program, assembled using 
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listing 2. 


REMark Sinclair @L World HEX LOADER 
REMark by Marcus Jeffery & Simon N Goodwin 


CLS: RESTORE : READ space: start=RESPR (space) 


FRINT “Loading Hex..." 


> HEX_LOAD start 


INFUT "Save to file..."ift 


SBYTES #$%,start,byte 


STOP 


DEFine FuNetion DECIMAL (») 
RETurn CODE (h$ is) )-48-7#* (HS (x) ONO") 
END DEFine DECIMAL 


DEFine PROCedure HEX LOAD(start) 


byte = 0 : checksum = 


REPeat load_hex_digits 


READ h$ 


oa 


IF h$="*" 3 EXIT load_hex digits 


IF LEN(h#) MOD 2 


FRINT"Odd number of hex digits in: "fh 


STOP 
END IF 


FOR b = 1 FO LEN¢(h#) STEP 2 


hb = DECIMAL tb) 


: lb = DECIMAL (b+1>) 


IF bb<O OR hb?iS OR 1b<0 OR 1b715 


PRINE"Tllegal hex digit in: 


END IF 


"$he > STOP 


POKE start+byte, 16*#hb+1b 
checksum = checksum + 16*hb + 1b 


byte = byte + 1 
END FOR b 


END REFeat load_hex_digits 


READ check 
IF check <> checksum 


PRINT"Checksum incorrect. Recheck data."!:STOF 


END IF 


PRINT"Checksum correct, data entered at: "sstart 


END DEFine HEX_LOAD 


REMark Space requirements for the machine code 


DATA 242 


«- 


REMark Machine code data 
DATA “43FA00DE34790000", "G1104ED234790000" 


DATA "01124E9266367001" 
DATA “4662C3031E 8005489" 


DATA "“O0346C0620360800" 


"5543670C6B305343" 
"S23 1EB003431E802" 


“SAOCTOFASE7S70OF 1" 


, 
DATA "S4892D490058C0F CL", "CO2BDOAEOO30BOAE" 
’ 


DATA "4E7570FC4E752040", 


“4SF A001 476FF 7009" 


DATA "4E4S226E00583381", "ESOO7B034E754A42" 
DATA "SBEOBSS68001E64DA", "4A41 GEDSER2EBOO1C” 
DATA "64D0D2680018D468", "QO1LA24680032EF 4A” 
DATA "D4C23401£4490241", "O07ED4C1321 20242" 
DATA "“O007082EQ0050034", "466107007904 2E069" 
DATA “O2410101D2013401", "EC4A8202B23C0006" 
DATA “6618520160147006", "O8B200009042E069" 
DATA "02410202340 1EE46", "82024881 70004E75" 


DATA 
DATA "OOOO", "#", 19106 


HiSoft DevPac. You can type this text into 
your assembler if you want to customise 
the code or merge it with other routines. 

The START routine calls BP.INIT, the 
ROM vector which adds new commands 
to SuperBasic. The table labelled DE- 
FINE, at the end of the listing, indicates 
the name and address of the PIXEL 
routine. 

The first step is to read the parameters 
— the optional channel number and two 


"06504958454C2500" 


co-ordinates. They are all integers, so we 
call CA.GTINT to fetch them from the 
place indicated by A3 and A5. GTINT 
returns with a non-zero result, signifying a 
‘bad parameter’ or ‘error in expression’ if 
it cannot find suitable values. Otherwise it 
puts them on the maths stack, pointed to 
by Al offset from A6, with the first 
parameter at the lowest address on the 
stack. 

The total number of parameters fetched 
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REMar k 
REMar k 
REMark 


DEFine 


listing 3. 


MODE 4 Window reflecting routine 
OL World DIY Toolkit June 1989 
Copyright 1989 Simon N Goodwin 


PROCedure MIRROR (chZ) 


LOCal max _“Z,y,x, datz 
max »Z=CHAN WA (ch%, 28)-1 


FOR y=O TO CHAN_WZ(chzZ, 30)-1 
FOR »=0 TO max_x% DIV 2 
dotZ=PIXELZ (#ch2%,max_xZ~—-x, y) 


BLOCK 
BLOCK 

END FOR > 

END FOR y 

END DEFine MIRROR 


is returned in D3. If that is fewer than two 
or more than three, we get a ‘bad 
parameter’ error. If we have three para- 
meters the first is a channel number; 
otherwise we assume channel #1. The 
parameters end up in registers DO, D1 and 
D2 and the maths stack is adjusted to 
leave room for a single integer result. 


Not open 


The familiar CHAN__SEL code con- 
verts a Basic channel number into an 
internal system identifier, by looking 
through the SuperBasic table of channel 
details. If the identifier is negative, or the 
entry would be outside the limits of the 
table, the code reports ‘channel not open’. 

Next we call SD.EXTOP, which lets us 
add new code to a display device. The 


1,1,max_“Z-x,y,PIXELZ(#Ch~, x,y?) 
1,1,.*,y,do0tZ% 


ROM code invoked by the TRAP #3 
converts the channel identifier in AO into 
the address of the first documented part of 
the channel block. Only screen and con- 
sole channels recognise EXTOP; others 
give a ‘bad parameter’ error. 

It is possible that another task is already 
using the channel, in which case Qdos 
cannot use SD.EXTOP immediately as 
only one task can use a particular channel 
at any time. The timeout value -1 in D3 
ensures that the system keeps trying to 
perform the operation every time tasks 
are swapped, until it succeeds because the 
other task has finished with the channel. 

This is called an ‘infinite’ timeout, with 
good reason, but should not cause prob- 
lems; if necessary you can set up a 
separate window overlaying the others, 
just for PIXEL % calls. 

Eventually the console driver calls the 
routine pointed to by A2, the code which 
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100 
110 
120 
130 
140 
150 
160 
179 
180 
i90 
200 
210 
220 
230 
240 


REMark 
REMar k 
REMar k 


DEFine 


END FOR » 
END FOR y 
END DEFine MIRROR 
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MODE 4 Window reflecting rautine 
QL World DIY Toolkit June 1989 
Copyright 1989 Simon N Goodwin 


PROCedure MIRROR (ch7) 

LOCal max_xA%,sy.%,dotZ 

max »Z=CHAN W2Z(ch%, 28)-1 

FOR y=0 TO CHAN_WZ(chZ, 30)-1 

FOR »=0 TO max_xZ%” DIV 2 
dot%=PIXELZ (H#chZ,max_xA“-xay) 
BLOCK 1,1,max_x%—-x, y,PIXELZ(#ch24z,x.y?) 
BLOCK i1,1,.x.y,dat% 


finds and interrogates a pixel, PIXEL% 
uses DI and D2 to pass the co-ordinates 
and D1 to read the resultant colour. Al is 
also passed back and forth by EXTOP but 
PIXEL% does not use it. The original 
value of D2 is reinstated when the call is 
complete. 


Pixtop 


The PIXTOP routine starts by checking 
that the co-ordinates fit inside the win- 
dow; then it adds the window offsets, 
making the co-ordinates relative to the top 
left corner of the screen. 

The next step is to find the word of 
video memory which stores the pixel 
colour. Each line takes 128 bytes, so the 
start of memory for the relevant line of 
pixels is found by adding Y% * 128 to the 
start address of video memory, taken from 
the channel details. There are 512 possible 
X co-ordinates on each 64-word line. We 
find the required word by converting the 
pixel co-ordinate, 0-511, into an even 
offset between 0 and 126. 

The LSR. W divides DI by 4 quickly, 
while the AND. W ensures an even result. 
The last three bits of the X co-ordinate tell 
us the location of the pixel data inside the 
word and end up in D2. Later the value is 


‘Defaults are 
important, because 
they simplify code by 
omitting parameters.’ 


‘reversed’, as solid colour numbers use the 
lowest bits of a byte, whereas pixel offset 0) 
corresponds to the most significant bits in 
a video word, which need to be shifted 
most. 

Bit #3 of the system variable 
SV.MCSTA is set if we are in MODE 8; it 
is easy to check this, as A6 points to the 
system variables when an EXTOP routine 
is called. The ‘flash’ bit is ignored in 
MODE 8, as flashing is little-used and you 
cannot work out whether or not a particu- 
lar pixel is flashing without scanning the 
previous part of the line. A set flash bit 
affects all the pixels up to the end of the 
line or the next set flash bit. 

The code for each mode uses a succes- 
sion of shifts to extract the details of one 
pixel and convert it into a standard colour 
number. The comments alongside the 
code show the way red, green and blue 
colour information is shuffled, A success- 
ful call returns with the result in DI and 
zero in DO. 


@ Next month I will have more code and 
commentary. Please send your sugges- 
tions if you would like me to explore a 
specific area in this column, or implement 
new commands ~ particularly ones un- 
available in commercial toolkits. 
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Quanta shows the hard discs 


Simon Goodwin dons a pair of his hats at Northampton. 


ard discs were the 

dominant theme at 

the latest Quanta 

OL User Group work- 
shop at' Northampton; three 
systems were on show, with 
several others promised. David 
Richards was demonstrating 
the official! Quanta prototype 
dise and interface, It runs up to 
four IBM-type hard discs or 
floppy drives and uses the 
M212 transputer intelligent 
disc controller, A IO0MB sys- 
tem costs around £350. 

The Miracle Systems £399 
Winchester drive was on dis- 
play, running Tony Tebby con- 
trol software and having a 
capacity of almost 32MB. It 
uses an IBM filecard internally 
but improves on the reliability 
of a PC with an auto-park 
routine. It moves the vibration- 
sensitive disc head safely out of 
harm’s way if the drive is not 
accessed for five seconds or 
more, 

That reduces the risk of a 
data-scrambling head crash but 
even then Winchester users 


would be wise to buy a copy of 
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Johnathan Oakley (QJump) and Simon Goodwin compute. 


the PDOL HardBack back-up 
utility; 32MB is a great deal of 
re-typing if the worst happens. 

The surprise arrival was a 
second commercial hard disc 
system from Rebel Electronics 
of York. Its RB-100 interface 
works with one or two standard 
Winchester drives, each with a 
capacity of 20, 40, 60 or SOMB. 

The interface ROM includes 
in-house disc control software 
and a. faster, more flexible 
version of Speedscreen, the QL 
text accelerator. An 8K sector 
buffer on the board gives extra 
disc speed. 

The Rebel hard disc inter- 
face plugs into the main OL 
expansion connector. It uses 
reliable but expensive Western 
Digital chips and costs slightly 
less than £200, plus the cost of 
the drive. Rebel launched 
simultancously a much-necded 
expansion backplane which 
fans out the OL expansion 
connector, allowing up to four 
peripheral cards to plug in at 
once. 

The £83 RB-S0E_ includes 
fast buffers, firmware to link 
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Tony Tebby of QJump addresses the multitude. 


devices into Odos and a socket 
for a second power supply, in 
case you decide to cascade 
power-hungry peripherals. A 
complete expansion of Win- 
chester interface, four-way 
backplane and 80MB drive 
costs £699, or £664 to Quanta 
members. 

As usual, the workshop fea- 
tured presentations from a suc- 
cession of QL luminaries, in- 
cluding John Silk of PDQL and 
Freddy Vachha of Digital Pre- 
cision. Tony Tebby led the way 
with a talk on his Q/ump 
products. Itseems that work on 
the Miracle hard disc has re- 
kindled his enthusiasm for the 
OL, although QRAM 2 is still 
far from complete. 

Creative CodeWorks boss 
and .QL World . contributor 
Simon. Goodwin — discussed 
work in progress, including a 
secret weapon due for launch 
in the autumn. He rounded off 
his presentation with a perso- 
nal impression of the quirks of 
magazine publishing, from his 
perspective as the compiler of 
DIY Toolkit, and later had to 
endure an interrogative , tele- 
phone call from the editor on 
the strength of this. 

In the next room hardware 
and communications specialist 
Tony Firshman slaved over a 
hot soldering iron, fitting the 
Futura Datacentre OL emula- 
tor into a succession. of Atari 
STs. A plethora of OL spares 
was available from him and 
Dennis Briggs of Quanta in the 
packed machine room upstairs. 

Former Sinclair and QJump 
programmer Jonathan Oakley 


Thor in his glory. 


discussed Tyche, the ill-fated 
Sinclair QL follow-up, and his 
plans to build a professional 
Midi synthesiser interface 
based on the 68681 dual UART 
chip. The interface is the easy 
part; it is the device driver and 
Midi editor which will need a 
good deal work. Oakley wrote 
QRAM, so he has the experi- 
ence to make a good job of a 
QL Midi device. 

This was the second QL 
workshop at Northampton and 
more than 200 QL enthusiasts 
appeared during the week- 
end. Quanta organisers plan 
another workshop in the same 
area in the autumn. The OL 
scene is buzzing at the mo- 
ment, with Quanta members at 
the forefront and prospects for 
new hardware and software in 
1989 look excellent. 

Further information about 
Quanta, the Independent QL 
User Group, 1s available from 


the ‘membership — secretary, 
Philip Borman, at 15 Gros- 
venor Crescent, Grimsby 
DN32 0QJ. 
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If you have a program worthy of consideration, send it to ‘The Progs’, 


Sinclair QL World, Greencoat House, Francis Street, London SW1P 1DG. 
We pay for everything published at the usual page rates. 


Program of the month 
CRAZY CARDS by Quintens Pierre 


he aim of the game is 
to place each card in 
increasing order after 
the corresponding 
ace. To do this you must move 
the appropriate card into a free 
place, so that the card on its left 
is the same colour and one 
value below the card moving 
in, This is repeated until it is 
impossible to move further. 
Then the program will reshuf- 
fle the unused cards for the 
next round, There is a max- 
imum of four rounds. 
Use the left, right, up and 
down keys to move the vertical 
and horizontal cursors; use the 


S 


space bar to move cards. The 
F4 key toggles between a de- 
fault mode — the indicated 
free place is filed by the right 
card — and an alternative — 
the space bar moves the indi- 


10 CLS 

20 PRINT ‘CRAZY CARDS* 

30 PRINT 'BY QUINTENS PIERRE’ 
40 PRINT '1 rue Henneumont' 
50 PRINT '5198 ANHEE* 

60 PRINT 'BELGIUM' 

70 PRINT ‘PHONE 082/612677' 


480 AD=RESPR( 6144 } 
106 CALL AD 


10 REMark 

20 REMark 

30 REMark 

40 REMark 

1900 DIM CK(18) 
110 AD=RESPR(0O) 
1209 
1390 FOR F=1 TO 18 
140 CK(F)=0 

150 FOR G=0 TO 191 
160 READ D 

170 CK(F)=CK(F)+D 


190 NEXT G 

200 NEXT F 

220 RESTORE 10000 
230 FOR Fei To 18 
240 READ WN 

250 IF CK(F)<>N THEN 
260 PRINT 


Sinclair/QL World June 1989 


90 LBYTES MDV1_CRAZY_CDE, AD 


CRAZY-CARDS 
BY 
QUINTENS PIERRE 
COPYRIGHT 4&7 


IF RESPR(0)=262144 THEN AD=RESPR(6144) 


180 POKE AD+(F-1)*192+G,D 


"ERROR AFTER LINE '; 


cated card to the correct free 
place. F5 reshuffles the cards. 
Exit from the game is via 
escape. 

It may look simple but it is 
extremely addictive 


270 PRINT 1000+(F-1)}*2u0 

280 END IF 

290 NEXT F 

300 SBYTES MDV1_CRAZY_C,AD,. 3456 

310 PRINT "NOW TYPE TK, 

320 PRINT ' - NEW;' 

330 PRINT ' - LBYTES MDV1_CRAZY_C,RESPR(0O);' 
340 PRINT ' - CALL RESPR(0O).' 

350 STOP 

1000 DATA 56.120, 0,198, 67,250, 0,196 
1010 DATA 78,148, 67,250, 0,184, 34,136 
1020 DATA 112, 16,114, 0,116, 1, 78, 65 
1630 DATA 75.250, 1, 56,116, 13, 66,157 
1040 DATA 61,202,255,252, 73,250. 1, 36 
1050 DATA 40,188, 13, 27, 41, 55, 73,250 
1060 DATA 2eZlQy £0,288, 0: G &% 8 
1070 DATA 73.250, 4,116, 40,188, oOo, Oo 
1080 DATA O. 298, 32, 228.255. 7&8, SF 
1090 DATA 112, 45,124, 2,116, 1, 78, 67 
1100 DATA $7.  O,482, 932,122. 0.410 
1110 DATA 112, 16,114, 9,116, 11,118,255 
1120 DATA 78, 67,112, 7,116, 16,118,255 
1130 DATA 67,250, 2,256, 78, 57,112, 14 
2140 DATA 114, 17,116, 11, 78, 67,112, 5 
1150 DATA 34,122, 2,496, 34, 17, & 1t 
1160 DATA O, 49,118,255, 78, 67, 75,249 
1170 DATA Oo B,404, 16,224, 540426, 7 
1180 DATA 54,188,255,255.219,252, 9%, 
1190 DATA 0,128, 81,207,255, 244,155, 252 
1200 DATA Oo, O, 3,254, 81,206,255,232 
1210 DATA 75,249, oO, 


We are not able to offer 
Crazy Cards on the Microdrive 
Exchange this month, although 
we hope to do so in future, 
Please could the author write 
to us? 


25 4,122, 60, 60 


0,291, 58,188,255,255, 219, 252 GO. 1, &1,202,255,234, 78,117 
Oo, oO, 6,128, 81,205,255, 244 26,1945, 24,252, 0, oO, £1,202 
96, O; 2, 28% Os 255,250, 78,117,112, 1,118,255 
Go OB FUG; 271045 32,122,253, 34, 78, 67,126, 
1 De. Be of Gy 48, 60,255,255, 75,250, 1, 
0,122,122, 55, 12, 4u, 21, 62, 6, 66, 70, 72. 
109, O, 0,100, 12, 12, 1, ©O,244,102, 
103, oO oO, 10, 82, 67,250,253, 6, 74, 
96, 0,255,234, 73, oO, & 66, 61, 96. 
124, 3,186, 28,103, 50,188, oO, 1, 12, 
81,206,255,248, 96, 103, 0,255, . 8, 12, 
82.101, 639, 5: 96, i538, O. B,i7e, £2, 
50; S87; Oy 2.128, 103, oO, o,204, 12, 
238, 90,213,121, 102, OO, oO, 22, 12, 
21290; OF 9: 103, 0,255,162, 97, 
i@ 4. OG. S52. 4, o, 8, 96, 
71.250, Gy 32.826; 12, 0,200,102, 
103, 0,255,214, 81,207,255, 2u8 Le, Oy 96,103, 255,134 
26.193, 93.205,255,152. 96. 97. Oo, gu, 6, oO, 8 
6, 7a, 96, Oo, 54, 12, 0,208 
o, 102, O. 22, 12) o 
103, 97. 96 
4, 96, 26 
12, 0,216,102, 86 
12, 72, 0,103, 78 
97. o, 68, 6, o 
58, 58,135, 48, fe) 
o, 12, 0,200,110, 10 
194,124, 97. Oo, 14, 96, 24 
71,250, 97, Oo, 36, 96, 16 
97, O, ' 73,249, O, 2,104, 16,217,198 
76,219, 116, 7,118, 3, 56,192, 81,203 
Pa. il? 255.252.217.252, O1 OO, 0,120 
5 0, 81,202,255,240, 78,117, 73,249 
Oo, oO, 0, 2, &4,122,217,199,116, 47 
Oo, oO, 56,128,217,252, 0, OO, 6,128 
o, 81,202,255.246, 78,117, oO, Oo 
2,212, ©, OO, OO, O, OO, 06,240,252 


40 


0, 


8,142,252, 24, Oo, 


2,134 


73,250,255,100 
55, 71,250,255, 84 
27, 4&1. 55. 71,250 


Oo, oO, 0,255, 
0,255, 62, G, 
6, 75,250, 
0,128, 


2.135, 9. @ 
206,252, oO, 14 
251,244, 74, BS 

75.250, 252,116 


» Betas, 27, LOD, 


81,203,255,248, 96, 
82,140, Ge 


Le HOB 
AD, dy 14,103, 
ic, 4, 27,103, 
Ao, oh, 40,103, 
81,206,255,194, 
1128, 55,450, 4, 
23,129, 48, 0, 
720227; UO. 8, 
28, 4, 97, Oo, 
4,134, 71,250,255, 
16, 80,114, 0, 


oO, 0,112, o, 

18, 53,122,255. 
0,254,168, 
0,254,160, 
0,254,152, 
0,254,144, 
0,254,136, 

55,156, 7, 71,250, 


72,227, 65, 4, 97, @, 


97. 


Oo, 1,190, 71,250, 


76,219, 32,130. 73.250, 


124, 


55.178, 28,103, Oo, 


81,206,255, 208, 25, 60, 


102, 9 
12, 1 
iz, 1 
12, 4 
12, 1 
12, 1 
82, 

252,162 

1,118 
252,134 
252, 28 

Oo, 


78 


97, 

76, 

96, 
254,202,124, 
Lf, dx OG, 
42, ey (Or 
$25 Me By 
12; Le 8 
81,206, 255, 
109, oO, oO, 
122, 3, 12, 
255.232, 12. 
255,224, 8&2, 
Oo: ds. BL, 
255,208, 73, 
Ton, wih, Dh, 
doe, @, G, 
84,140, 81, 
2,190, o, 
By 69% TT's 
112, 16,144, 


75,250,254, 
120, 54, 97, 
254, 17,120, 

73,250,254, 

o, 20, 73. 
o, 
oO, 
i 
Qo, 


Oo, 4,116, 
219, 16, 80, 

0,255,182, 
55,126, 
13,403, 
26,103, 
39,103, 
52,103, 
220, 12, 
226, 

6, 

20, 

7 
205,255,230, 96, 
2650,254,110,122, 

28, 82, 1,178, 
30, 81,206,255, 244 
205.255.236, 96, 

O, 2, 65, 
&o, 84, 

27,114, 

67,212, 
145, Oo. 

Ls Oo, 

129, oO, 
122,253,136. 
4. 73,250, 
Oo, oO, 4o, 
uo, 97, oO, 
21,120, 26, 
250,254, 
10, 97, 
42,116, 
1,178, 44,255,255 
14, 82,140, 4, & 


27,129,112, 0, 97, O, 


97, oO, 
75,250, 
a, 
Qo, 
1, 
6, 
o, 


71,250,252, 
126, 55,158, 
78.186, 4, 
71,250,252, 
114, 0,124, 55. 
0,228, 97, Oo, 
252,198, 32,122, 
118,255, 78, 67, 
116, 70,118,255, 
96. Oo, 0,168, 
32, G2, 32. 32, 


32. 32. 32, 32, 


Fly O22, 65s TEs 
F2: 79 70s 83. 
S2% 32y 32, 32; 
82, 69, 83, 43, 
32, 75, 69, 8&9, 
80, 76, 65, 49, 
73, 74, 32,122. 
118,255, 78. 67. 
116, 70,118,255, 
$6 O. 8, Fz, 
32, 32, 32, 32, 
32, 32, 32, 84, 
32, 66, 4&6, &b4, 
32. 70. 65, 73, 


Sinclair/QL World June 1989 


1,148, 
251,246, SS 
103, 0,254, 54 
73,250,251,228 

Qo, 1,178, 28 
81,206,255, 248 
102, 0,254, 22 

Oo, 0,112, oO 

72,211, 32,192 
27 129.11: 860 
78,186, 1, 66 
76,211. 192 
156, 7, 

i, Ad, 

254, 6,112, 32 
67,250, 0, 14 
a42, Fe 67 
16, 20, 10 
32. 32, 32 
$2, 467% 78 
85, Bu 
a2. 10 
32, 
32, 
32, 
a 


' 
E 
E 


3040 
3050 
3060 
3070 
3080 
39090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
‘3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
37590 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
34830 
3840 
3850 
3860 
3470 
3880 
3890 
3900 
3910 
3920 
3930 
3940 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


32, 32, 32, 32, 32, 32, 32, 89 
82. 69, 83, 83, 32, 65, 78, 89 
32, 75, 659, 89, 32, 84, 79, 32 
60, 76, 65, 89. 32. 65, 71, 65 
73, 78,112, 1,118,255, 32,122 
250, 60, 78. 67. 96, 0,249,138 
32,122,250, 50,112, 2, 78, 66 
66,128, 75,117,126, 55,158, 6 
75,209, OO, @ Ay 8; 22, 7 
0, 24,108; OB 0, 52, 12 7 
Oo, 28,1OE, Gy ©, 16, ff; F 
O, 18.219. 252 6, 0, 2h, oo 
96, 30, 12, 7. Oo, 42,108, o 
GS, ih, & Fs & 23,219,252 
Oo, o, 48, ©, $6, 10, 4, 7 
O, 42,219,252, oo, OO, 72, oO 
207,252, Qo, 8,219,199, 78,117 
16; Zs 661225, 18; OF 685; 1268 
i, ts 8 M40 By 8.88 
hk. ad. DB, eit, 252. 8. 23 
4a, i, 66, 65, 72, 65, 67,250 
ais 4, 69,250, 3.112, 71,250 
4, 80, 73,250, 2.268, 46.. 1 
4-132, OG. BB. , 10,201, 252 
O, 48,195,252, Oo, 48,193,252 
Oo, 48, 36, ©,208,128,124, 23 
LZ6,. 2; 26cLU77y 165 De SF Pg 
6, Ge Oe 2s EBYad44, Be, 8 
Oo, U; 272th, 32s Oo, QO, 5 
27,118, O, GO» U2, OO, BF, 125 
O; OU. Dan “Ss BrsBhs 8: 2 
ee, By, B¥sl2Gs, Oy 2B, 22: 8 
10, 85,255,255, 10,109,255,255 
©, A, 16,109,255.255, 12: 6 
10,109,255,255, 12, 4, 12, 64 
O,745,109. G iO, 26, 27. ie8 
O. 285, G. as. B.cah. 6, 285 
o, &, 27.i2t, @, 2538, 12. 4 
27,124, 0,255, 12, 5, 12, 68 
GS, 60,2690, OG, OG, BA, 22, AS 
oO, 4, 10, eS I 0,255,134, 521 
ol, OF 27, 67) G, 8 22, 60 
O, 148,109, 8) DO, 28, 29, 45 
0,255, Q, 4, 27,124, 0,255 
Oo, 5S. 96, OG, OG 12, 27, 67 
Oo, 5, 10,109,255,.255,. 0, 4&4 
82,139, 84,141, 82,137, 82,138 
82,140, 81,207,255, 86,219,252 
O, OO O.228, 84,180, 81,206 
255. 72. 66.128. 78,117,124, 47 
42,188,255,255, 255.255, 43,124 
255,255,255, 255, Oo, 4,219,252 
Oo, O, 0,128, 81,206,255,234 
66,128, 78,117, Oo. Oo, 63,255 
61, 0, GH, O, S7.2H0, Fi, 208 
78, 28, 76, 12, 76, 12, 92, 14 
88, 6, 88, 6, 95,254, 95,254 
8&8, 6, 88, 6, 88, 6, 88, 6 
88, 6, &8, 6, 88, 6, 64, oO 
64, o, 64, Qo, Qo, Oo, 63,255 
oh, 0. 6h. ©, 67,240, 71,248 
78, 28. 92, 14, 88, 6, 64, 6 
64, 6, 64, 14, 65,252, 67,2488 
Fin OO 78, 8. 7TOq OF 92, © 
6&8, 0. 95,254, 95,254, 64, oO 
64, O, 64, GO, OG, OO, 63,255 
64, Oo, 64, 0, 67,200; 71,248 
76; 28, 92, 18: BB, 6 64; 8 
64, 14, 64,252, 64,252, 64, 6 
6u, &j 64, 6, 8&8, 6, 92, 14 
78, 28, 71.248, 67,240, 64, oO 
6u, Oo, 64, Oo, oO, Oo, 63,255 
64, Oo, 64, Oo, 64, 24, 64, 56 
64,120, 64,248, 65,216, 67,152 
71, 2h. 78, 2, 95,2594, 95,254 
64, 24, 64, 24, 64, 24, 64, 24 
Oh, 2a, 68, 24, Gi, 2a, 64, 0 
6u, o, 64, o, Oo, oO, 63,255 
6, Oo, 64, Oo, 79,254, 95,254 
92, Oo, 88, Oo, 88, Oo, 88, 0 
92, 0, 95,248, 79,252, 64, 14 
6u, 6, 64, 6, 88, 6, 92, 14 
78, 28, 71,248, 67,240, 64, oO 
64, Oo, 64, oO. Oo. Oo, 63,255 
64, 0, 64, O, 67,240, 71,248 
78. 28, 92, 14, 88, 6, 88, ° 
88, oO, 91,240, 95,248, 94, 28 
ge, 14, 88, 6, 88, 6, 92, 14 
78. 28, 71,248, 67,240, 64,. 0 
64, 0, SH, GO. G, OO, 69,255 
64, a, 64, Oo, 95.254, 95,254 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


88, oO, 88, 
64, GO. 6a, 
64, oOo, 64, 
78, 28, 92, 


78, 28, 71, 
64, oO, 64, 
64, oo, 64, 


92, 14, 78, 
64, 6, 64, 
78, 30, 7a, 
64, oO, 64, 
64, Oo, 64, 
89,206, 89, 
89,134, 89, 
89,134, 89, 
89,206, 89, 


64, O, 64, 
92,224, 88, 
88&, 96, 88, 
79,292, 74. 
64, 3, 64, 
64, oO, 64, 
64, ©, 64, 
89,192, 91, 
95. 0, 91, 
88,102, 88, 


0. 2, oO, 
1,242, 3, 
1,242, Oo, 
oO, 2. oO. 
Qo, 2. Qo, 
oO, 2. Oo, 
QO, 2, Oo, 
1. 82, 3, 
1,242, Go, 


Gy 25 Ge 
Go, 2, OO. 
3.250, 3, 
Oo, 66, OO, 
oO, 2, Qo, 
ao 2, 4, 


Oo, 2, 1, 
3,250, 1, 
Oo, 66, or 
oO. 2. Oo, 
oO, 2. Qo, 
Oo, 2, Go, 
Qo, 2. Qo. 


128,194, 99, 
99, 10, 28, 
64, 66, oO, 

o, 2, 9, 
Oo 2 


Oo 2. @& 
204,194, 63, 
68,178, 68, 
164, 66, oO, 
O. Be Gy 
Qo, 2, Oo, 
0, 8, By 
28, 50, 8, 
136.130. 73, 
170,146, oOo, 
Gh, ty 
64, 7,192, 
64, 31,240, 
64,127,252, 
65,255,255, 
67.255.255, 
67,255,255, 
64,255,254, 


2, 


64, 30, 64, 56 
65,192, 67,128 
76, oO, 88, oO 
88, oO, 64, Oo 
Oo, oO, 63,255 
67,240, 71,2u8 
88, 6, 92, 14 
71.208, TA. 28 
88, 6, 92, 14 
67,240, Ga, oo 
Oo. oO, 63,255 
67,240, 71,248 
88, 6, 88, 6 
71,254, 67,246 
68, 6. 92, 14 
67,240, 64, oO 
Oo, oO, 63,255 
88,252, 89,254 
89,134, 89,134 
89,134, 89,134 
89,134, 89,138 
88,252, 64, Oo 
©, O, 63,255 
95,224, 95,22u 
64, 96, 64, 96 
88, 96, 92,224 
64, 2, 64, 2 
64, 1, 64, Oo 
Oo, ©, 63,255 
71,128, 79,192 
88, 96, B88, 96 
89, 96, 92,224 
64, 3, 68, 3 
6h, Se 6h £ 
Oo, OO, 63,255 
88, 96, 88,220 
95, Oo, 94, oO 
89,192, 88,230 
64, oOo, 64, oO 
64, 1, 64, 3 
0, 0,255,252 
0,226, 1,242 
a 9c. OG, G6 
CG, JB By 2 
i. 2° %, 2 
q, Bi Bi 2 
Oo, 0,255,252 
0,226, 0, 66 
1, 82, oO, 66 
Be Wy Oy. 2 
Oo; B® G. 2 
Gy 2 - . 2 


Bar aie OT 2 
Oo, 2, O&% 2 
Ge ‘Be Ms 2 
Oo, 0,255,252 
Gin By Oo, 2 
oO, 2, QO, 2 
Oo, 2,128, 66 

28, 34, 0,146 
0, 18,191,162 
©, 0,255,252 
oO: £ & 2 


Qo, 2, 28, 59 


66,255,130,136,130 


66, 


130, 
130, 
2, 


62, 66,193,226 
64, Ti DG @ 
64, 3.128, 2 
64, 15,224, 2 
64, 63,248, 2 
64,255,254, 2 
67,255,255,130 
67,255,255,130 
65,255,255, 2 
64,121, 60, 2 


41 


MOVEA, 
LEA 
_JSR 
LEA 
MOVE. L 


MOVEQ 
MOVER 
MOVEQ 
TRAP 
LEA 
MOVE 
CLRVL 
DEF 
LEA 
MOVE. L 
LEA 
MOVE. L 
LEA 
MOVE. L 
MOVEQ 
MOVER 
TRAP 
MOVEC) 


MOVEC) 
TRAP 
BSR 
MOVE. L 
MOVE 
MOVE 
MOVEQ 
MOVE 
TRAP 
MOVEQ 
MOVE 
MOVEQ 
LEA 
TRAP 
MOVER 
MOVEQ 
MOVEC) 
TRAP 
MOVE’ 
MOVE.L 
MOVE. L 
ABOT. B 
MOVEQ 
TRAP 
LEA 
MOVEQ 
MOVE 
MOVE. W 
ADDA.L 
DEF 


64, 3,128, 
64, 63,248, 
64, OO 
G OF OF 
64, 15,224, 
64, 31,240, 
64, 31,240, 
64, 7,192, 
67,241, 31,130, 
71,255,255,194, 
71,251,191,194, 
65,225, 15, 
64, 3,128, 
64, 63,240, 
6h, OO; 0, 
Q, 8 8; 
64, 4, Oo; 
G4, 3,228, 
64, 7,192, 
64, 31,240, 
65,255,255, 
65,255,255, 
64, 31,240, 
64, 7,192, 
64, 3,128, 
64, 2s Dy 


W $C, A4 
PARAMS, 41 
(A4) 
[ID,Al 
Ay (AL) 


64, 15,224, 2 
65,255,255, 2 
63,255,255,252 
64, 7,192, 
64, 31,2h0, 
64, 31,240, 
64, 15,224, 
65,225, 16, 
71,249, 63,194 
71,255,255,194 
67,241, 31,130 
6A, 2 OF 2 
64, 15,224, 2 
65,255,255, 2 
63,255,255, 252 
64, 1, Oo, 
64, 3,128, 
64, 7,192, 
64, 15,224, 
64,127,252. 
71,.255,.255,19 
64,127,252, 
64, 15,224, 
64, 7,192. 
64, 3,128, 
64, 1, 0, 


NNNNNFEFNNNN ND 


ID 
SW 
PARAMS 


#219605851, (A4) 


CPT, A4 
#05 (A4) 
CUR, A4 
#0, (A4) 
#%20, D0 
#1, D3 
#3 
#62D, D0 


1S7712,A5 
#51,D4 
#75D7 
Hedy CAS) 
#128,A5 
D7 sLAIN 


S2RN 


S3RN 
TRO 


SUBA.L 
DEF 
LEA 
MOVE. W 
MOVE, W 
ADDA.L 
DBF 
BRA 


DS. 
DS.wW 
DC.B 
DCW 
EVEN 


LEA 
MOVEQ 


CMPI.B 
BLT 
CMPI.B 
BEQ 
ADDQ.L 
SUBQ.B 
BRA 
LEA 
MOVE 
CMP. B 
BEQ 
DEF 
BRA 
ADDQ.L 
SUBQ.B 
BRA 


MOVE.W 
MOVE. W 
ROR.W 
ADD.W 
AND, L. 
ADDQ.B 
CMPI.B 
BHI 
LEA 
MOVEQ 
CMP. B 
BEQ 
DEF 


MOVE. B 
DELT 
BRA 
DS. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


64, oO, 
o, oO, 


65,248, 63, 


67,252,127,130, 
71,254,255,194, 
71,.255,255,194, 
67,255,255,130, 
64,255,254, 

64, 


31,240, 


QO, oO, 
255,252, 


63,255,255, 252 
64, 96, 12, 2 
67,252,127,130 
71.254, 255,194 
71,255,255.194 
67,255,255,130 
65,255,255, 
64, 63,248, 
64, 15,224, 
64, 3,128, 
64, 41, Oo, 
64, 1, O, 


REMark DATAS TO CHECK YOUR 

DATA 18597,10364,11388, 15197,.15999 
DATA 11293,18109,15865,12640,12509 
DATA 15798,13960,14105,15945, 7887 
DATA 12190,18252,13556 


#1022,A5 
Dé,L3IN 
132218,A5 
#191,D6 
#15 (A5) 
#128,A5 
D6,L41N 
AS 


1 
1. 
2465 25144,50 
51i2,256,0,0 


BUF, AS 
#55,D5 


#0,D5 
S3RN 
#0, (AS) 
TRU 
#1,A5 
#1,D5 
S1RN 
TRO, A4 
#3,D6 
(A4)4+,D5 
SiITR 
Dé,LiTR 
LiIRN 
#1,A5 
#1,D5 
S1RN 


$2002E,D1 
D1,d2 
#7,D2 

D2, $2802E 
#63,D1 
#1,D1 
#52,D1 
LiRN 

BUF, A3 
#55,D7 
(AS +,D1 
LIRN 
D7,L.2RN 


D1, (AS5)+ 
DS5,5iRN 
DISPS2 


2 


= 


Lois 


BUF 


DISPSz 


LEA 
MOVEQ 
MOVE, B 
ESR 
=) 
MOVEM.L 
BSR 
LEA 
MOVEM, L 
DBF 

RTS 
OSL, 


CLRLL 
CLLR. Le 
LEA 
MOVE. W 
MOVE. W 
MOVE. W 
BSR 
BSR 
LEA 
MOVE 
MOVE 
LEA 
MOVE. L 
LEA 
MOVEQ 
CMP. B 
BEQ 
DEF 
BRA 
ADDOQwL 
SUBI.B 
MOVE. B 
CMPI.B 
BE 
CMPI.B 
BEQ 
CMPI.B 
BEQ 
CMPI.B 
BEC 
DBF 
BRA 
MOVEQ 
SUE. B 
LEA 
MOVE, B 
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BUF 4 A4 
#55,06 
(A4) 4, D1 
ADDIS 
STOR+E, AG 
DO/A4s ~(AS) 
DISPLAY 
STOR, AS 
(AS) +, 06/4 
DésyLAIDI5 


8 


Dé 
D7 
CUR, AS 
(AS) +,D4 
(45)4D7 
#OSZE0, DO 
HORT 2 
VERT I 
BUF y AG 
#555 D4 
#555 D6 
TRO, AS 
#2198H38S1, (AG) 
TROy AS 
#3,D3 
(ASI +5 D% 
S3A 
D3,LZAS 
S4A4S 
#1,A4 
#1, 06 
(A4)+,D1 
#1i,D1 
*S1AS 
#14,D1 
S1AS 
27,D1 
S1AS 
#40,D1i 
$145 
D6,LLAS 
TROUS4 
#554 D3 
D4,D3 
BUF, AS 
D1,0(A3,D3) 


! 
| 


TROUS4 


CPT 
MESS 


THAT RE 


LEA 
MOVEM.L 
MOVE, B 
MOVE. B 
BSR 
BSR 
LEA 
MOVEM. L 
MOVEQ 
BSR 
BSR 
LL.EA 
MOVEM.L 
SUBI.B 
BRA 
LEA 
MOVE 
MOVEQ 
MOVE, B 
CMPI.B 
BEQ 
CMPI.B 
BEC 
CMPI.E 
REQ 
CMPILB 
BEC) 
DBF 
CMFPI.B 
BLT 
BRA 
MOVE C 
CMPI.B 
BLE 
CMPI. B 
BNE 
A4DDG. B 
4000. L. 
SUBI.B 
DBF 
BRA 


LEA 
MoVEX 
MOVEC 
MOVE. B 
ADDQ.B 
CMP. B 
BINE 
DBF 
ADDQ.L. 
DEF 
BRA 


DS.L 
DC.B 


MOVE 
MOVEQ 
MUVEC 
MOVE. L 
TRAP 
MOVE 
LE 
4DDt.L 
MOVE. L 
CMPI.B 
BGE: 
ADDI.’ 
MOVE) 
MOVE. L 
TRAP 


LEA 
LEA 
MOVEQ 
BSR 
LEA 
MOVE 


STOR+12,A3 
A4/D6/D4_~{ AGS) 
#0,-—(A4) 
D4,Dé6 
ADDR 
DISPLAY 
STOR AS 
(AS) +,A4/D6/D4 
#0,D1 
ADDR 
DISPLAY 
STOR, AS 
(AG) +,A4/D5/D4 
#14,D4 
S2AS 
BUF y A4 
#55, De 
#0,D7 
(A4)+,D1 
#143,01 
SLTR4 
#26, 01 
S51TR4 
#39,D1 
SiTR4 
#52,0D1 
SiTR4 
DosLi Tie 
Hy DF 
CURSEUR 
BIENP 
#3, 05 
#0), Dé 
S2TR4+ 
#0), (A4) 
S2TR4 
#1,D7 
#1ls AS 
#1406 
DS, LETR4 
Sz TR4 


ZERG 
he LE 


BUF, A4 
#5, D5 
#11406 
(A445 DL 
#1,D1 
(44),D1 
QUATRE 
Dé yLiBl 
Hey A4 
DA,LBI 
GAGNE 


i 
“ATTEMPT = 


#16,00 
#17501 
#11,De 
ID,AQ 
#5 

#5, 00 
CPT, AL 
#14 (AL) 
(Al), DI 
#4,D1 
PERDU 
#49, D1 
#el,DS 
Ib, AQ 
#5 


TRO, AS 
BUF +15 A4 
#54,D4 
ZERO 

BUF 15,84 
#40), D4 


AFF CY 


CURSEUR 


BSR 
LES 
MOVE 
Ble 
LEA 
MOVE 
BSR 
BSR 


BRA 


MaVEd 
MOVE. B 
SURI. B 
CMF. B 
BNE 
ALDQ.L 
SURI. B 
DBF 
RTS 
MOVE, B 
MOVE, B 
DBF 
RTS 


MOVEQ 
MOVEQ 
MOVE.L 
TRAP 
MOVEQ 
MOVE, W 
LEA 
MOVE. L 
MOVE. W 
CLRAW 
SWAP 
Chr. B 
BNE 
(LEA 
TST.W 
BE 
CLRAW 
BR ee 
MOVE. W 
CMF. B 
BE 
CMP. B 
REQ 
CMF. B 
BEQ 
cer 3 
BNE 
CMP LW 
BEC 
BS 
SUB. W 
BRA 
CMP, B 
BANE 


BS RR 
ADD. W 
BRA 
err B 
BNE. 
PIR dA 
BEG 
BSIs 
SUBR.W 
BRA 
2hP 2 
BME 
CMH. W 
BEw 
BSR 
ADD, iW 
MOVE. i 
MOVE. W 
MOVE, W 


ZERG 

BUF ba? 4 Ast 
Hato, D4 
LER 

BUF F435 AS 
#12, D4 
ZERH 

Prov 
CURSE WR 


Hie, De 
(64),0D1 
#1,01 
-1\44),D1 
SAZE 
#1544 
#1,D4 
D2,Li Ze 


D4, (A5)+ 
#0, (AS) + 
D2,L2ZE 


#1,D0 
#-1,b3 
ID, 40 
#5 

#0, D7 
#-1,00 
CUR, AS 
(A5),D6 
bé,D7 
bS 

Dé 
#244,D1 
S54CU 
SW, Al 
(Al) 
S5cu 
(Al) 
54CU 
#15 (Al) 
#246, 01 
BIENP 
#27,D1 
EXIT 
#32,D1 
EMPLA 
HI9S,D1 
Sicu 
#0, D& 
CURDSEUR 
HORT Z 
#9, D6 
APF CU 
HE, (4 
ropes a 
#9 Sy DS 
CURSEU 
HORT 2 
Holy DG 
AFF CU 
#20, 1 
SocCu 
#007 
CURSEUR 
VERT L 
#o144, 07 
AFF CU 
#216, 01 
CURSEURK 
#19432, 57 
CURSEUR 
VERT I 
#5144,D7 
Do, (AS 2+ 
Df, (AS) 
#65200, 60 


S1arc 


MORITZ 


L2H 
LiHo® 


VERT I 


EMPLYVI 


LEE SF 


TROUVE 


EMPL. PL 


CMe. B 


BGT 
BSR 
BRA 
BGR 
BRA 


LEA 


ADDA. | 
MOVER 
MOVE 
MOVE, W 


DEF 


4DbA.L 


DBF 
RTS 


LEA 


4ADDA. LL. 
MOVEQ 
«Wo DID, (Aa) 
SDDA.L 


MOVE 


DBF 
RTS 


LEA 


TST.W 


BNE: 


LEA 


CMPI. 


BNE 


MOVE. 
CMPI. 


BEC) 


CMPT. 


BEQ 


CMPL. 


BEC 


CMPL. 


BEC 


CMPI. 


BEG 


ABD. B 
MOVEQ 
SUP. B 


LE 


#200,D1 
SLAFC 
HORT2 
TROUG4 
VERTI 
TROUS4 


1S7712,A4 
DoesA4 
#7,D2 
#3,03 

DOs (A4)+ 
D3,LIHO 
#120,A4 
Diy LUZHO 


138218, A4 
D7,A4 
#47, D2 


#128,4A4 
DeyLiVeE 


me 


#8, 06 
#6144,D7 
#255506 
#255,D7 
#1,06 
#14,D7 
D6é,b7 
SW,AS 
(AS) 
EMPLPL 


BUF, AS 

BO #0,0(45,D7) 
CURSEUR 

Bo -1¢(45,D7),D1 

B #0,D1i 
CURSEUR 

B #13,D1 
CURSEUR 

Bo #26 D1 
CURSEUR 

Bo #5 LiL 
CURSEUR 

Bo #52401 

CURSEUR 

#1,D1 

#55,D6 

Dis be 

HORT 2. AS 


MOVER. ASYDL YD? a> CAG) 


MOVEM. 1. 


LE és 
haa 


CMe. B 


BEC) 
OBE 


BEG 


PIOVE . B 


LEA 


Mavens 


ALDER 
DISPLAY 
SPOR, Ad 

(AG +e ASS OLY OY 
BUF y Ad 
#55, 
CAG) +5 Le) 
PROUVE, 
Bey l Lehr 
#0,-CA4) 
Day lt Ate Deed 
ADR 

Hl, D1 
PPSPLAY 
TROUS4 


BUF. AS 
#U,0iAS,De.W) 
CURSEUR 
OcAS,D7.Wiybi 
BUF A 

#54, De 
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SUBI.B #1,D1 CMPI.B #14,D7 OBE L?sLibis 
WiEMPL CMP. CAS Doty DI BLT 51iA4D5 ADDA.L #)4,A5 
BEQ SLEMPL CMPI.B #28, D7 ADDG.L #2,44 
DEF Dé, LiEMPL BG SZAD5S E Deyl.<DbIs 
SLEMPL CMP. E #04 (A4) SURI. EB #14,0D7 CAR po 
BNE CURSEUR ADDA.L #6144,45 RTS 
ADDQ.B #1,D1 BRA.S SIAD5 a MOVER Hee Les 
MOVE. B #0,0(A5,07) SZADS CMPI.B #42,D7 -1€ MOVE wl. #1, CAD) 
LEA S1URAS RGE "5 aT '4 MGOVE.L #-1,4¢A5)} 
MOVEM.L AS/Dé/D7, (44) SUBI.B ve ADDA.L #128, AS 
Mave #55, D7 ADDA,.L #12288, AS DEI Des bbc 
BUR. PB Doe, D7 BRALS S1ADS CLRwL bo 
MOVE.B Dil,O¢AS,D7.W) S3Aab5 SURI. B #42, 07 RASS 
ISK ADDR ADA, L. #18432,A5 
JOR DISPLAY &iAbDs MULLS #8,07 eon AE O, 146383, 1654, 16354 
LEA STOR, AS ADD.L D7,a5 DOW L792, 18424, 19996,19468 
MOVEM.L (&3),AS/D6/17 RIG eer 19468, 255665) 225 54,5 22554 
MOVEQ  #0,D1 DIShLAY "AW 24574, 245974) 225545 22554 
MOVEQ #55, 06 OC a 4, 22554, 2544, 22 5o4 
SUP. B DY,bHSé Mave Boil y Lbs " S45 16304, 16394, 16584 
BSR ADDR CLA. 1 say Oy, 1 6S63, 164394, 16404 
BSR DISPLAY MOVE. & Dike tl ata 17392, 18424, 199946, 29964 
BRA TROUS4 ChR.L. oO ec ee LOSS, 146590, 16398 
z -— #U,01 i 16892,17400, 189176,19958 
ACNE MOVE. IDA ae tLe DCW 19456, 25552, 22508, 24574 
MOVE #820, DO § ‘1, B #1501 or 24574, 163584, 16584, 14384 
MOVER) #-1,03 3 # be DL JG a (y16385,16484, 16464 
TRAP #3 oH Di. Go fm 17392,18 VL PPP ey SSE OS 
ests) MESS, AL D4 IC WW BES B44 16590, 16398, 166386 
MOVEC #70, D2 $ Gt “ L6G365 146370, 16390, 16396 
MOVE #-1,D3 4 Wa, Al eC 225954, 255 G64 199946, 1844 
MOVE #7,D0 ey UDGtroet4, AS Pe 17392, 163584, 16384, 163594 
TRAP #4 WE. UbG+E lS, AG ‘7 0, 16583, 16484, 16384 
BRA GETKEY E UDGe Yeu, Aa : 16408, 15440, 16504, 16632 
( Dis 4 L 16854, 17404, 16200, 19992 
MES Sta DCB 10,10,10,10 4 #10, D4 eA Bah 74, 24574, 146408, 146408 
Dt. E ‘ MULS #46), [4 pc, 16400, 16408, 16408, 14408 
DC.B * CONGRALUTAT IONS MULLIS #454 D1 IC L640, 16584, 163584, 163584 
bC.B 10,10,10 MLSs HAS y LO DC. 0, 16483, 16564, 16484 
Dbc.B : PRESS ’” MOVE. L DO, D2 JC. W 20478, 24574, 23552, 22528 
DC.B "ANY KEY TO ” ADD.L DO, 60 2G fH) 2S 2A, 23552, 245468 
DC.B "PLAY AGAIN’ MOVE fed, De [.W 20476, 16398, 164590,16390 
L2dis MOVEQ #1,D7 ac. 22954, 25506) 19996,5 18424 
MOVE.L ID,A0 L1lors MOVE. B O4A1,D1), (45) ve 17392, 16384, 16384, 146384 
MOVE #$20,D0 MOVE. B O¢(41,01),1¢4%) IC e (0,16383, 16384, 16384 
MOVEQ #-1,D3 MOVE, B OCA, D2) 4685) on 17 S925 18424, 19996, 239554 
TRAP # MOVE. BC Z oa, a 22534, 225885 22520, 239536 
LEA MESSP, AL MOVE » B 0(A4,D0), 3072 ) oF 24568, 24092, 23566, 225 54 
MOVER) #70,D2 MOVE. BR OF(44,00),3073(A5) DC. 22934, 23566, 19996, 18484 
MOVER #-1,D3 MOVE. BR 244,00), 30750493 " 17392, 16304, 16584, 1464584 
MOVE #7,D0 MOVE. BR 2¢44,D0),3077(AS) DCW 0, 146383, 16594, 16564 
TRAP #3 EORI.W #655,45, (AS) . 24574, 24574, 16390, 14590 
BRA GETKEY EGRIJW #655735,4¢45) > 16414, 164405 16494, 16608 
FORIL,W #65535, 3072¢(A5) ta ae Let ig d 
DC. 3 10,10,10, 10 EORT.W #65535, 5076(A5) 7 é : ? 
DC.B i : CME. WwW #144, 00 : 2b 165g, 16334 
DC. 2B "SORRY BUT You BLT SiDIiS ae if 3, 16484, 1438 
DC. "FAIL? ,10,10,10 MOVE, B #E55, 10A5) “a t 19996, 25544 
DC.B PRESS * MOVE.B #255,5(45) hia 2 y CAD ad 2 vieeet be a 
be.kB "ANY KEY TO * MOVE. BR #255, 30743 (A5> 
pC. B PLAY AGAIN’ MOVE. B #255,.3077(A5) Un =. She, 20Gb, 19S Pes Lees 
Sip1s CMPI,W #0,D4 DU. LY S92, 1H&SGS4, LOse4y Lostss 
BLT S.<018 Cw Ws 143855 146484, iad 
GETKEY MOVE #1,60 MOVE. BR 4(0A5),03 Fe fa L899 dh, CIS G8 
MOVE #-1,03 EQORILB #255,D3 IC. on Gy M4, EAD Gs LESS 
MOVE.L  ID,AQ OR.B O¢A3,D4),D3 . 4, 16590, 163590 
TRAP #3 MOVE. PB D3,4(A5) A a £. HG, 1YOSE, LHe og 
BRE INLT CMP. Ww #144,D0 Ce Lo Aas bbs ite 
BLT C : : Le diy Lewis 
EORI.B #255, 4 (AS) d 
MOVE. L Ib, 40 MOVE. B #255,5 (ao: 
MOVEQ #2,D0 BRA S4DI%& 
TRAP #2 S3ors MOVE. B D3,5 (AS) 
Oy DU EGORE.W #65545,4°45) 
RTS S4D1S ADDQ.L #1,A3 y : 
Sepia 4NbQ.L #2,.45 DC. S45hh Babtay ke patty L910 
AbiuR MOVEC #55,D7 ADDQ.L FL, AL alee 1649), 1648U : s 
SUB B Do,D? ADDO. Hl, AS : 4 ( 
LE ey 132104,A5 AND Q.L #ly At 
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163855 14384, 


O, 1oaca, 


Lesea, Ladies 
16484, 1 : 


licen bs 0416, aoe Aik vs 


laser, 163us, 
Oy 1 63! 83, 


boty 


BO416, LHs57 
16387, 14.40 ¢ 
l6de4, 16504 
LeSi4, 16ge4 

PT ivy BSA aed 


z 2976 by e2758, 22 


16484, 164384, 
163585, 16407, 
Os SSSG2, 
496, 
bby 

ay 

“4 


“4 


6553245 


0, 655325 


Zy 


16384, 16385 
16388, 16404 
Bs 
ADE, 
4964 
zy 
Zs 
Por) 


a 


Oh hho hs po 


SNORE 


ae 


og 196, 25354, 

1a, 49058, 16450), 

0,65542, as 

as ty aa) 

Sy wy ey 

Be f~abe,Se4ala, 

17506,175060,1758e6, 

95 S2674,42050, 

0,655.32, “4 

ag 24 os 

uy 2y zy 

Sy 7elB, 7218, 

654910, 449446, 34945, 

Lae RE A 

Z2y16485, 
‘ 375327705 16391,49154 
16399,57444, 16415,61442 
16447,65490, 16511,64514 
166.39, 659026, 16095, 65282 
17407,65410,17407,65410 
17407,65410,17407,65410 


146387, 32770, 
163591,49154, 
14399,57546, 
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with £30 extra* 


OL from software FREE! 


Complete in original £8 as new, JS Rom — Latest version S‘Ware 
Quill, Abacus, Archive & Easel, Comprehensive Bound User Guide For 
QL, Superbasic & Above Programs (90 Day Warranty) £140* 


As above but factory reconditioned with basic QL & Quill Guide JS ROM £120* 
Same Pack But With JM ROM £110* 
Reconditioned QL Only JM ROM “fes* 

*FREE SOFTWARE 


HOME FINANCE and TOUCH & GO or, DECISION MAKER with *items 
(while stocks last) 


QL SPARES ETC. 


Basic working P/C BOARDS complete but without Microdrives .... 


Comprehensive Bound User en jennie Quill, Abacus, 
Archive and Easel instructions 


Microdrive Units — £20 JM ROMS —£15 aL LHe: Supsiie — £15 
QL Centronic Interface — £19.95 (Both include Leads) Joystick — £12.95 


QL SELECTED LOW COST PRINTERS WITH I/FACE & LEADS 
SEMOSHA GP1004 80 Col., 50 CPS Centronics, Tractor Feed, Graphics, etc. 
{send SAE for CL printouts} £95: 


SEIKOSHA GP550A 50 CPS, 25 NLQ low noise, 140 characters, Friction/ 
Tractor Feed (send SAE for OL printouts) 


SOFTWARE CLEARANCE 


SINCLAIR 4 PACK — Quill - Archive - Easel - Abacus - Latest issues 

CASH TRADER — Comprehensive business records and graphics 

DECISION MAKER — Far business and domestic problem evaluation 

HOME FINANCE — Keeps track of your bank accounts and personal expenditure 
QL PAINT Superb graphics, QL Touch & Go, Typing Tutor, OL Gardener 


Terms CWO - ACCESS or VISA 
Minimum order £10.00, p & p £6.00, Printers and QL 
Other items £3.00. Overseas enquire, 


Fax No: 0753-887149 a 
Orders to: _ 
EEC LTD 


18-21 Misbourne House, Chiltern Hill, Chalfont St. Peter, Bucks. SL9 SUE 
Tel: 0753 888866 
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XVI Version 4 


Version 4 of THOR XVI is a completely redesigned 

hardware and software version of the well-known CST 

THOR XVI, now a 100% Danish production. It is 

produced by one of the largest Scandinavian manu- 

facturers of high quality measuring instruments vouching for the high 
standard of our product. 

The brand new version of ARGOS (6.40/'1.07) introduces a number of 
new facilities and a much improved full SCSI hard disc handling. ARGOS 
6.40 now supports the standard IBM AT keyboards, IBM AT extended and 
PS/2 extended keyboards, covering 11 different national languages. 

Now it is possible to use the advanced facilities of any printer, including 
laserprinters, thanks to new user defined extended translation tables. 

ARGOS windiwing facilities are extended to support separate screen 
MODE for each job, 

In addition to PSION Xchange we deliver free of charge 2 discs with 
easy to use menu system and ullities. 

Present THOR XVI users please register with us in order to request a 
ROM Software upgrade. Technical support is already available in the U.K. 
through P.M. Engineering. 

Please request the new 12 pages THOR XVI brochure and price list 
containing also a description of the new coming products. We are pleased to 
announce 2 new products: 

* ARCTURUS EDITOR (Arced), the indispensable companion for 
programmers (also running on THOR 8 and Sinclair QL), introductory price: 
GBP £45.00. Please request a technical desctiption. 
* C++ COMPILER for the THOR and QL range of products, is under 
development. 

Dansoft offers software service contracts for existing THOR customers 


DANSOFT 


Sole Agent for: 
THOR INTERNATIONAL COMPUTER SYSTEMS I/S 


Raadhusatraede 4 b, 4.sal, DK 1466 Copenhagen K 
Mail to: P.O. Box 59, DK 1002 Copenhagen K, Denmark. 
Phone no: +45 1 930305 (after May 15th: +45 33930305) 

Fax no: +45 1 938292 (after May 15th: +45 33 938292) 


Sinclair/QL World June 1989 
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Mossy Telephone: 0388-450610, Fax: 0388-609845, Prestel MBX: 219998590, aD } 
Telex: 934999 TXLINK G (Quoting Reference No. 219998590) = 


0388 450610 THE QLS 0388 450610 


—— =| 


-—— REVOLUTION © 
== HAS ARRIVED!~ _., 


L,SUB', THORNADO, QLCF, AND MORE-S=se=ss=n=s 
‘ LIANCE OF QL USER GROUPS! Sm 


sina us Bim - 
NAMI A, came 
SUBSCRIPTION No: M@4¢O769QL 

7 ‘TEL: 0388-450610, FAX: 0388-609845 


TELEX: 934999 TXLINK G, REF: 219998590 
PRESTEL MBX: 219998590 


PO BOX 3, SHILDON, DLA 2L 


— SUBSCRIPTION OFFER! 


What do we offer? Who can benefit? 


A light at the end of the tunnel.. All sorts of people read "OL SUB" 
A full-time telephone help-line is in all sorts of places- Papua New 
backed up by written support, and Guineau, Iran AND Iraq, Aust lia, 
a wide range of special services United States, India, France, Oman, 
developed only for our readers. Zimbabwe, Libya, Greece, Poland... 


12 issues of "QL SUB" magazine 
p at (we hope) monthly intervals. £4 (UK ONLY) 
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QL Bulletin Board always on 0388-773737 
Running Every Day. All Day. Direct Dial! 


Savings on hardware/software. 
ae RATE 


mapiaeet and informed advice. STARTS £20 
Richeuch I Turner £20 Europe, £25 World. 
eaivor, “qu'sus) OFFER ENDS Ist JULY 


PHONE USNOW Auckland Business Centre, St. Helen's Auckland, FRIENDLY ADVICE 
FOR BEST PRICES BISHOP AUCKLAND, Co. Durham, ENGLAND, DL14 9TX. ON COMPUTERS 


PO Box 3, Shildon’*DL4 2LW 


Please Note~ We use PO = for convenience. you would prefer to 
write to, or order from our fecet aust premises direct you are welJ.come to 
do so. Of course, you can cajl too, but please arrange a time to call. 


WE WELCOME CALLERS BY APPOINTMENT ONLY! 


